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

2001-09-07 15:23:08 +00:00 · 2001-09-07 15:23:08 +00:00 · 5973322619
parent 69271875a9
commit 5973322619
1 changed files with 2 additions and 6 deletions
--- a/ls.scm
+++ b/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))
+		  (filter (lambda (file) (file-directory? file #f))
 			  files)))
-;	     )
 	     (if (not (null? directories))
 		 (begin
 		   (newline port)