regexp-exec errors

[Dale P. Smith]

Recent changes to regexp-exec do not allow symbols as arguments.

This breaks apropos and TAB completion.  I added some symbol->string
calls to session.scm and my tab key is happy again.  Here is a patch.

Index: session.scm
===================================================================
RCS file: /cvs/guile/guile-core/ice-9/session.scm,v
retrieving revision 1.20
diff -c -r1.20 session.scm
*** session.scm 2000/09/29 20:39:29     1.20
--- session.scm 2000/10/09 23:36:21
***************
*** 212,218 ****
                 (lambda (oblist)
                   (for-each
                    (lambda (x)
!                     (cond ((regexp-exec match (car x))
                             (display name)
                             (display ": ")
                             (display (car x))
--- 212,218 ----
                 (lambda (oblist)
                   (for-each
                    (lambda (x)
!                     (cond ((regexp-exec match (symbol->string (car x)))
                             (display name)
                             (display ": ")
                             (display (car x))
***************
*** 266,272 ****
           (lambda (module data)
             (let* ((obarray-filter
                     (lambda (name val data)
!                      (if (and (regexp-exec match name)
                                (not (hashq-get-handle recorded name)))
                           (begin
                             (hashq-set! recorded name #t)
--- 266,272 ----
           (lambda (module data)
             (let* ((obarray-filter
                     (lambda (name val data)
!                      (if (and (regexp-exec match (symbol->string name))
                                (not (hashq-get-handle recorded name)))
                           (begin
                             (hashq-set! recorded name #t)


-- 
Dale P. Smith
Altus Technologies Corp.
address@hidden
400-746-9000 x309