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

[Dirk Herrmann]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Dirk Herrmann <address@hidden>  00/11/01 01:37:30

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

Log message:
        * string=? requires a string argument.  Thanks to Dale P. Smith.

CVSWeb URLs:
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/ice-9/ChangeLog.diff?r1=1.354&r2=1.355
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/ice-9/syncase.scm.diff?r1=1.16&r2=1.17

Patches:
Index: guile/guile-core/ice-9/ChangeLog
diff -u guile/guile-core/ice-9/ChangeLog:1.354 
guile/guile-core/ice-9/ChangeLog:1.355
--- guile/guile-core/ice-9/ChangeLog:1.354      Sun Oct 15 15:33:05 2000
+++ guile/guile-core/ice-9/ChangeLog    Wed Nov  1 01:37:30 2000
@@ -1,3 +1,8 @@
+2000-10-10  Dirk Herrmann  <address@hidden>
+
+       * syncase.scm (eval):  string=? requires a string argument.
+       Thanks to Dale P. Smith for the patch.
+
 2000-10-15  Neil Jerram  <address@hidden>
 
        * optargs.scm: Fix typos in commentary for bound? and lambda*.
Index: guile/guile-core/ice-9/syncase.scm
diff -u guile/guile-core/ice-9/syncase.scm:1.16 
guile/guile-core/ice-9/syncase.scm:1.17
--- guile/guile-core/ice-9/syncase.scm:1.16     Tue Sep 12 03:34:09 2000
+++ guile/guile-core/ice-9/syncase.scm  Wed Nov  1 01:37:30 2000
@@ -155,7 +155,7 @@
 
 (define-public (eval x environment)
   (internal-eval (if (and (pair? x)
-                         (string=? (car x) "noexpand"))
+                         (equal? (car x) "noexpand"))
                     (cadr x)
                     (sc-expand x))
                 environment))