From 9ee23a715d5dad6bf568a2deb1c55bf15601cf51 Mon Sep 17 00:00:00 2001 From: Justus Winter Date: Fri, 22 Jul 2016 17:42:17 +0200 Subject: gpgscm: Make function more general. * tests/gpgscm/tests.scm (in-srcdir): Accept more path fragments. Signed-off-by: Justus Winter --- tests/gpgscm/tests.scm | 4 ++-- 1 file 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. -- cgit v1.2.3