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