diff options
-rw-r--r-- | ice-9/ChangeLog | 5 | ||||
-rw-r--r-- | ice-9/syncase.scm | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog index 8a67766ab..76deabca7 100644 --- a/ice-9/ChangeLog +++ b/ice-9/ChangeLog @@ -1,3 +1,8 @@ +2000-10-10 Dirk Herrmann <D.Herrmann@tu-bs.de> + + * syncase.scm (eval): string=? requires a string argument. + Thanks to Dale P. Smith for the patch. + 2000-10-15 Neil Jerram <neil@ossau.uklinux.net> * optargs.scm: Fix typos in commentary for bound? and lambda*. diff --git a/ice-9/syncase.scm b/ice-9/syncase.scm index 4a5e61b97..0074285a6 100644 --- a/ice-9/syncase.scm +++ b/ice-9/syncase.scm @@ -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)) |