From 66907428e037a7b4f35523d4752666303d33d216 Mon Sep 17 00:00:00 2001
From: interp <interp>
Date: Mon, 10 Sep 2001 12:26:40 +0000
Subject: [PATCH] Minor change in ls-path.

---
 ls.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/ls.scm b/ls.scm
index d173d7c..93d392b 100644
--- a/ls.scm
+++ b/ls.scm
@@ -61,7 +61,9 @@
 	     (file-directory? path #f)))           ;; or not
     (ls-directory path all? recursive? long? directory? flag? columns? port))
    (else
-    (ls-file (cons path (file-info path #f)) long? flag? port))))
+    (if (or long? flag?)                           ;; see LS-DIRECTORY for details
+	(ls-file (cons path (file-info path #f)) long? flag? port)
+	(ls-file (cons path #f) long? flag? port)))))
 
 (define (ls-directory directory all? recursive? long? directory? flag? columns? port)
 ; terminology: a FILE-NAME is the name of a file