mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-21 22:59:16 +02:00
7 lines
182 B
Scheme
7 lines
182 B
Scheme
|
|
(define (directory-files path)
|
|
(let ((dir (opendir path)))
|
|
(let lp ((res '()))
|
|
(let ((file (readdir dir)))
|
|
(if file (lp (cons (dirent-name file) res)) res)))))
|
|
|