From 597332261977726d527d04544726f7c4e77a2072 Mon Sep 17 00:00:00 2001
From: interp <interp>
Date: Fri, 7 Sep 2001 15:23:08 +0000
Subject: [PATCH] RECURSIVE - flag works now (removed bug from previous
 revision).

---
 ls.scm | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

diff --git a/ls.scm b/ls.scm
index 376f3d0..f0b4c66 100644
--- 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))
-			       files)))
-;	     )
+		  (filter (lambda (file) (file-directory? file #f))
+			  files)))
 	     (if (not (null? directories))
 		 (begin
 		   (newline port)