fix path adjustment of inline test files in snow-chibi package command

This commit is contained in:
Alex Shinn 2015-06-15 23:39:38 +09:00
parent 4fc7181c2c
commit c9a856b8f6

View file

@ -592,10 +592,13 @@
data-files)) data-files))
(tar-files (tar-files
(reverse (reverse
(append (if test (append
(cond
((pair? test) (list test))
(test
`((rename ,test `((rename ,test
,(path-strip-leading-parents test))) ,(path-strip-leading-parents test))))
'()) (else '()))
docs tar-data-files files)))) docs tar-data-files files))))
(cons `(package (cons `(package
,@(reverse res) ,@(reverse res)