mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-21 14:49:18 +02:00
10 lines
254 B
Scheme
10 lines
254 B
Scheme
|
|
(define (directory-fold dir kons knil)
|
|
(let ((dir (opendir dir)))
|
|
(let lp ((res knil))
|
|
(let ((file (readdir dir)))
|
|
(if file (lp (kons (dirent-name file) res)) res)))))
|
|
|
|
(define (directory-files dir)
|
|
(directory-fold dir cons '()))
|
|
|