diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-11-01 09:37:30 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-11-01 09:37:30 +0000 |
commit | f304437e707be319ab93f062b02c66d61a4e578c (patch) | |
tree | b72f4499a516d8fd482261c0c67de7b9fe624000 | |
parent | a3a329390f25cf1ea73f639a7967f7eb0b3a3d8f (diff) | |
download | guile-f304437e707be319ab93f062b02c66d61a4e578c.tar.gz |
* string=? requires a string argument. Thanks to Dale P. Smith.
-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)) |