guile/guile-core/ice-9 ChangeLog session.scm

[Dirk Herrmann]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Dirk Herrmann <address@hidden>  00/10/10 00:32:45

Modified files:
        guile-core/ice-9: ChangeLog session.scm 

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

CVSWeb URLs:
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/ice-9/ChangeLog.diff?r1=1.352&r2=1.353
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/ice-9/session.scm.diff?r1=1.20&r2=1.21

Patches:
Index: guile/guile-core/ice-9/ChangeLog
diff -u guile/guile-core/ice-9/ChangeLog:1.352 
guile/guile-core/ice-9/ChangeLog:1.353
--- guile/guile-core/ice-9/ChangeLog:1.352      Sat Sep 30 08:53:36 2000
+++ guile/guile-core/ice-9/ChangeLog    Tue Oct 10 00:32:45 2000
@@ -1,3 +1,9 @@
+2000-10-10  Dirk Herrmann  <address@hidden>
+
+       * 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  <address@hidden>
 
        * posix.scm (setgrent): pass #t, not #f.  thanks to
Index: guile/guile-core/ice-9/session.scm
diff -u guile/guile-core/ice-9/session.scm:1.20 
guile/guile-core/ice-9/session.scm:1.21
--- guile/guile-core/ice-9/session.scm:1.20     Fri Sep 29 13:39:29 2000
+++ guile/guile-core/ice-9/session.scm  Tue Oct 10 00:32:45 2000
@@ -212,7 +212,7 @@
                 (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 @@
           (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)