summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-10-10 07:32:45 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-10-10 07:32:45 +0000
commit4adc302894d806d90a684cf099de1f28379ca8f6 (patch)
tree2e608a01c0a94701cac8f7f6bc7c066381bdf906
parent9fd38a3d142821f117716b90aa6acace79f1b944 (diff)
downloadguile-4adc302894d806d90a684cf099de1f28379ca8f6.tar.gz
* Fixed apropos: regexp-exec does not accept symbol arguments any more.
-rw-r--r--ice-9/ChangeLog6
-rw-r--r--ice-9/session.scm4
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)