suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

simplify paths when packing

Browse Source 
svn: r3000
This commit is contained in:
Eli Barzilay 2006-05-21 10:36:39 +00:00
parent 07e2c01045
commit c319e62e3e
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/setup/pack.ss
View File

@ -127,7 +127,8 @@
(quote ,collections))) (quote ,collections)))
fileout) fileout)
(newline fileout) (newline fileout)
(for-each (lambda (path) (mztar path fileout filter file-mode)) (for-each (lambda (path)
(mztar (simplify-path path #f) fileout filter file-mode))
paths) paths)
(close-output-port fileout) (close-output-port fileout)
(thread-wait thd))) (thread-wait thd)))