mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-29 08:20:20 +02:00
Code Activity

* Fixed apropos: regexp-exec does not accept symbol arguments any more.

Browse source
This commit is contained in:
Dirk Herrmann 2000-10-10 07:32:45 +00:00
parent 9fd38a3d14
commit 4adc302894
2 changed files with 8 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
ice-9/ChangeLog
View file

@ -1,3 +1,9 @@
2000-10-10 Dirk Herrmann <D.Herrmann@tu-bs.de>
* session.scm (apropos, apropos-fold): regexp-exec does not
accept symbol arguments any more. Thanks to Dale P. Smith for the
patch.
2000-09-30 Gary Houston <ghouston@arglist.com>
* posix.scm (setgrent): pass #t, not #f. thanks to

4
ice-9/session.scm
View file

@ -212,7 +212,7 @@ where OPTIONSET is one of debug, read, eval, print
(lambda (oblist)
(for-each
(lambda (x)
(cond ((regexp-exec match (car x))
(cond ((regexp-exec match (symbol->string (car x)))
(display name)
(display ": ")
(display (car x))
@ -266,7 +266,7 @@ Fourth arg FOLDER is one of
(lambda (module data)
(let* ((obarray-filter
(lambda (name val data)
(if (and (regexp-exec match name)
(if (and (regexp-exec match (symbol->string name))
(not (hashq-get-handle recorded name)))
(begin
(hashq-set! recorded name #t)