mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-19 18:20:22 +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}"
(if (zero? (string-length rgx))
"Empty string not allowed"
(let* ((match (regcomp rgx))
(let* ((match (make-regexp rgx))
(modules (cons (current-module)
(module-uses (current-module))))
(separator #\tab)
@ -64,7 +64,7 @@
(lambda (oblist)
(for-each
(lambda (x)
(cond ((regexec match (car x) #f)
(cond ((regexp-exec match (car x))
(display name)
(display ": ")
(display (car x))