Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-07 05:06:37 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Handling case where opendir fails in directory-fold-tree.

Browse source
This commit is contained in:
Alex Shinn 2013-10-03 09:37:33 +09:00
parent 8ddee1f704
commit 3c8c1fe74b
1 changed files with 12 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
lib/chibi/filesystem.scm
View file

@ -49,17 +49,18 @@
(cond (cond
((file-directory? file) ((file-directory? file)
(let ((d (opendir file))) (let ((d (opendir file)))
(let lp ((acc acc)) (if (not d)
(let ((e (readdir d))) (let lp ((acc acc))
(cond (let ((e (readdir d)))
(e (cond
(let ((f (dirent-name e))) (e
(if (member f '("." "..")) (let ((f (dirent-name e)))
(lp acc) (if (member f '("." ".."))
(let ((path (string-append file "/" f))) (lp acc)
(lp (fold path (down path acc))))))) (let ((path (string-append file "/" f)))
(else (lp (fold path (down path acc)))))))
(up file acc))))))) (else
(up file acc))))))))
(else (else
(here file acc)))))) (here file acc))))))