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)) '())