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

use case-lambda instead of dot argument

Browse Source 
svn: r3703
This commit is contained in:
Eli Barzilay 2006-07-14 14:49:59 +00:00
parent d6573625e7
commit 5471a32913
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
collects/mzlib/file.ss
View File

@ -479,12 +479,16 @@
(cond [(and (not follow-links?) (link-exists? path)) (f path 'link acc)]
[(directory-exists? path)
(call-with-values (lambda () (f path 'dir acc))
(lambda (acc . descend?)
(if (if (pair? descend?) (car descend?) #t)
(do-paths (map (lambda (p) (build-path path p))
(directory-list path))
acc)
acc)))]
(letrec ([descend
(case-lambda
[(acc)
(do-paths (map (lambda (p) (build-path path p))
(sort
(directory-list path) void))
acc)]
[(acc descend?)
(if descend? (descend acc) acc)])])
descend))]
[(file-exists? path) (f path 'file acc)]
[(link-exists? path) (f path 'link acc)] ; dangling links
[else (error 'fold-files "path disappeared: ~e" path)]))