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

*** empty log message ***

Browse source
This commit is contained in:
Mikael Djurfeldt 1997-08-18 20:19:18 +00:00
parent 0e81dabd94
commit 4f161c5cb1
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
ice-9/session.scm
View file

@ -36,7 +36,7 @@
"Search for bindings: apropos regexp {options= 'full 'shadow 'value}" "Search for bindings: apropos regexp {options= 'full 'shadow 'value}"
(if (zero? (string-length rgx)) (if (zero? (string-length rgx))
"Empty string not allowed" "Empty string not allowed"
(let* ((match (regcomp rgx)) (let* ((match (make-regexp rgx))
(modules (cons (current-module) (modules (cons (current-module)
(module-uses (current-module)))) (module-uses (current-module))))
(separator #\tab) (separator #\tab)
@ -64,7 +64,7 @@
(lambda (oblist) (lambda (oblist)
(for-each (for-each
(lambda (x) (lambda (x)
(cond ((regexec match (car x) #f) (cond ((regexp-exec match (car x))
(display name) (display name)
(display ": ") (display ": ")
(display (car x)) (display (car x))