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,11 +592,14 @@
data-files)) data-files))
(tar-files (tar-files
(reverse (reverse
(append (if test (append
`((rename ,test (cond
,(path-strip-leading-parents test))) ((pair? test) (list test))
'()) (test
docs tar-data-files files)))) `((rename ,test
,(path-strip-leading-parents test))))
(else '()))
docs tar-data-files files))))
(cons `(package (cons `(package
,@(reverse res) ,@(reverse res)
,@(if (pair? data-files) `((data-files ,@pkg-data-files)) '()) ,@(if (pair? data-files) `((data-files ,@pkg-data-files)) '())