3 lines
120 B
Text
3 lines
120 B
Text
(define (empty-dir? path-to-check)
|
|
(empty? (clean (lambda (x) (or (= "." x) (= ".." x))) (directory path-to-check)))
|
|
)
|