resolve paths in pathlist-closure

svn: r3171
2006-06-01 14:10:55 +00:00 · 2006-06-01 14:10:55 +00:00 · e82c0f6bf8
commit e82c0f6bf8
parent 5c11b23cae
1 changed files with 2 additions and 1 deletions
--- a/collects/mzlib/file.ss
+++ b/collects/mzlib/file.ss
@ -500,7 +500,8 @@
                            path))))

  (define (pathlist-closure paths)
-    (let loop ([paths (map (lambda (p) (simplify-path p #f)) paths)]
+    (let loop ([paths (map (lambda (p) (simplify-path (resolve-path p) #f))
+                           paths)]
               [r '()])
      (if (null? paths)
        (reverse! r)