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

resolve paths in pathlist-closure

Browse Source 
svn: r3171
This commit is contained in:
Eli Barzilay 2006-06-01 14:10:55 +00:00
parent 5c11b23cae
commit e82c0f6bf8
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/mzlib/file.ss
View File

@ -500,7 +500,8 @@
path)))) path))))
(define (pathlist-closure paths) (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 '()]) [r '()])
(if (null? paths) (if (null? paths)
(reverse! r) (reverse! r)