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

diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog
index bbbc9af..b19c0f6 100644 (file)
--- 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 a49fc5f..3cde2e5 100644 (file)
--- 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)