scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ls.scm
View File

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