From e82c0f6bf835fffe3717376fabafaf485e2d1ebf Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Thu, 1 Jun 2006 14:10:55 +0000
Subject: [PATCH] resolve paths in pathlist-closure

svn: r3171
---
 collects/mzlib/file.ss | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/collects/mzlib/file.ss b/collects/mzlib/file.ss
index 69cadafecc..a4dca62052 100644
--- 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)