From c9a856b8f64a7832a1b19afc36746a76c3ce8723 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Mon, 15 Jun 2015 23:39:38 +0900 Subject: [PATCH] fix path adjustment of inline test files in snow-chibi package command --- lib/chibi/snow/commands.scm | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) diff --git a/lib/chibi/snow/commands.scm b/lib/chibi/snow/commands.scm index f34e5679..12182dcf 100644 --- a/lib/chibi/snow/commands.scm +++ b/lib/chibi/snow/commands.scm @@ -592,11 +592,14 @@ data-files)) (tar-files (reverse - (append (if test - `((rename ,test - ,(path-strip-leading-parents test))) - '()) - docs tar-data-files files)))) + (append + (cond + ((pair? test) (list test)) + (test + `((rename ,test + ,(path-strip-leading-parents test)))) + (else '())) + docs tar-data-files files)))) (cons `(package ,@(reverse res) ,@(if (pair? data-files) `((data-files ,@pkg-data-files)) '())