commander-s/scheme/eval.scm

8 lines
212 B
Scheme
Raw Normal View History

(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?))))