suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

reformat, etc

Browse Source 
svn: r15361
This commit is contained in:
Eli Barzilay 2009-07-02 03:27:19 +00:00
parent e0e8c86688
commit c072d23baf
1 changed files with 26 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/scheme/file.ss
View File

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