20 lines
573 B
Scheme
20 lines
573 B
Scheme
(define-syntax run/strings-status
|
|
(syntax-rules ()
|
|
((_ epf)
|
|
(call-with-values
|
|
(lambda ()
|
|
(run/port+proc epf))
|
|
(lambda (port proc)
|
|
(let ((string-list (port->string-list port))
|
|
(status (wait proc)))
|
|
(close-input-port port)
|
|
(values string-list status)))))))
|
|
|
|
(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?))))
|