simplify paths when packing

svn: r3000
2006-05-21 10:36:39 +00:00 · 2006-05-21 10:36:39 +00:00 · c319e62e3e
commit c319e62e3e
parent 07e2c01045
1 changed files with 2 additions and 1 deletions
--- a/collects/setup/pack.ss
+++ b/collects/setup/pack.ss
@ -127,7 +127,8 @@
                    (quote ,collections)))
             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)
      (close-output-port fileout)
      (thread-wait thd)))