From a6002912d78ce30b7cfb898fafd7608a4abcc5d8 Mon Sep 17 00:00:00 2001
From: Jim Blandy <jimb@red-bean.com>
Date: Thu, 23 Oct 1997 05:01:12 +0000
Subject: [PATCH] * ls.scm (ls, lls): Don't assume (eq? #f '()).

---
 ice-9/ls.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ice-9/ls.scm b/ice-9/ls.scm
index ed03cccd3..ae1fb80af 100644
--- a/ice-9/ls.scm
+++ b/ice-9/ls.scm
@@ -64,7 +64,7 @@
 			   (module-uses m)))))))
 
 (define-public (ls . various-refs)
-  (and various-refs
+  (and (pair? various-refs)
        (if (cdr various-refs)
 	   (map (lambda (ref)
 		  (cons ref (definitions-in (current-module) ref)))
@@ -72,7 +72,7 @@
 	   (definitions-in (current-module) (car various-refs)))))
 
 (define-public (lls . various-refs)
-  (and various-refs
+  (and (pair? various-refs)
        (if (cdr various-refs)
 	   (map (lambda (ref)
 		  (cons ref (local-definitions-in (current-module) ref)))