mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-30 17:00:23 +02:00
Code Activity

* ls.scm (ls, lls): Don't assume (eq? #f '()).

Browse source
This commit is contained in:
Jim Blandy 1997-10-23 05:01:12 +00:00
parent a3cd2b988f
commit a6002912d7
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
ice-9/ls.scm
View file

@ -64,7 +64,7 @@
(module-uses m))))))) (module-uses m)))))))
(define-public (ls . various-refs) (define-public (ls . various-refs)
(and various-refs (and (pair? various-refs)
(if (cdr various-refs) (if (cdr various-refs)
(map (lambda (ref) (map (lambda (ref)
(cons ref (definitions-in (current-module) ref))) (cons ref (definitions-in (current-module) ref)))
@ -72,7 +72,7 @@
(definitions-in (current-module) (car various-refs))))) (definitions-in (current-module) (car various-refs)))))
(define-public (lls . various-refs) (define-public (lls . various-refs)
(and various-refs (and (pair? various-refs)
(if (cdr various-refs) (if (cdr various-refs)
(map (lambda (ref) (map (lambda (ref)
(cons ref (local-definitions-in (current-module) ref))) (cons ref (local-definitions-in (current-module) ref)))