resolve paths in pathlist-closure

svn: r3171 original commit: e82c0f6bf835fffe3717376fabafaf485e2d1ebf
2006-06-01 14:10:55 +00:00 · 2006-06-01 14:10:55 +00:00 · c4e5f84c13
commit c4e5f84c13
parent 3795c206fa
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)