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