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
((file-directory? file)
(let ((d (opendir file)))
(let lp ((acc acc))
(let ((e (readdir d)))
(cond
(e
(let ((f (dirent-name e)))
(if (member f '("." ".."))
(lp acc)
(let ((path (string-append file "/" f)))
(lp (fold path (down path acc)))))))
(else
(up file acc)))))))
(if (not d)
(let lp ((acc acc))
(let ((e (readdir d)))
(cond
(e
(let ((f (dirent-name e)))
(if (member f '("." ".."))
(lp acc)
(let ((path (string-append file "/" f)))
(lp (fold path (down path acc)))))))
(else
(up file acc))))))))
(else
(here file acc))))))