RECURSIVE - flag works now (removed bug from previous revision).

This commit is contained in:
interp 2001-09-07 15:23:08 +00:00
parent 69271875a9
commit 5973322619
1 changed files with 2 additions and 6 deletions

8
ls.scm
View File

@ -78,12 +78,8 @@
(if recursive?
(let ((directories
; (map (lambda (file-name)
; (string-append directory file-name))
(filter (lambda (file)
(file-directory? file #f))
files)))
; )
(filter (lambda (file) (file-directory? file #f))
files)))
(if (not (null? directories))
(begin
(newline port)