8 lines
212 B
Scheme
8 lines
212 B
Scheme
|
(define (directory-files . optional-args)
|
||
|
|
(let-optionals optional-args
|
||
|
|
((dir (cwd))
|
||
|
|
(dotfiles? #f))
|
||
|
|
(map (lambda (file)
|
||
|
|
(make-fs-object file dir))
|
||
|
|
(scsh-directory-files dir dotfiles?))))
|