RECURSIVE - flag works now (removed bug from previous revision).
This commit is contained in:
parent
69271875a9
commit
5973322619
8
ls.scm
8
ls.scm
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue