reformat, etc

svn: r15361

collects/scheme/file.ss

@@ -316,15 +316,17 @@
                null path)))
 
 (define (pathlist-closure paths)
-  (let loop ([paths (map (lambda (p) 
-                           (let ([p2 (if (link-exists? p)
+  (let loop ([paths
+              (map (lambda (p)
+                     (simplify-path
+                      (if (link-exists? p)
                         (let ([p2 (resolve-path p)])
                           (if (relative-path? p2)
                             (let-values ([(base name dir?) (split-path p)])
                               (build-path base p2))
                             p2))
-                                         p)])
-                             (simplify-path p2 #f)))
+                        p)
+                      #f))
                    paths)]
              [r '()])
     (if (null? paths)