diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-10-10 07:32:45 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-10-10 07:32:45 +0000 |
commit | 4adc302894d806d90a684cf099de1f28379ca8f6 (patch) | |
tree | 2e608a01c0a94701cac8f7f6bc7c066381bdf906 | |
parent | 9fd38a3d142821f117716b90aa6acace79f1b944 (diff) | |
download | guile-4adc302894d806d90a684cf099de1f28379ca8f6.tar.gz |
* Fixed apropos: regexp-exec does not accept symbol arguments any more.
-rw-r--r-- | ice-9/ChangeLog | 6 | ||||
-rw-r--r-- | ice-9/session.scm | 4 |
2 files changed, 8 insertions, 2 deletions
diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog index bbbc9af7c..b19c0f61f 100644 --- a/ice-9/ChangeLog +++ b/ice-9/ChangeLog @@ -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 diff --git a/ice-9/session.scm b/ice-9/session.scm index a49fc5fed..3cde2e5fa 100644 --- a/ice-9/session.scm +++ b/ice-9/session.scm @@ -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) |