strip leading parents in package test

This commit is contained in:
Alex Shinn 2015-06-13 22:06:12 +09:00
parent eab76ce8c1
commit 19df6e7578

View file

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