diff options
| -rw-r--r-- | tests/gpgscm/tests.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/gpgscm/tests.scm b/tests/gpgscm/tests.scm index 58b1430f8..e14e0e3b0 100644 --- a/tests/gpgscm/tests.scm +++ b/tests/gpgscm/tests.scm @@ -180,8 +180,8 @@ path (string-append (getcwd) "/" path))) -(define (in-srcdir what) - (canonical-path (string-append (getenv "srcdir") "/" what))) +(define (in-srcdir . names) + (canonical-path (apply path-join (cons (getenv "srcdir") names)))) ;; Try to find NAME in PATHS. Returns the full path name on success, ;; or raises an error. |