summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-11-01 09:37:30 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-11-01 09:37:30 +0000
commitf304437e707be319ab93f062b02c66d61a4e578c (patch)
treeb72f4499a516d8fd482261c0c67de7b9fe624000
parenta3a329390f25cf1ea73f639a7967f7eb0b3a3d8f (diff)
downloadguile-f304437e707be319ab93f062b02c66d61a4e578c.tar.gz
* string=? requires a string argument. Thanks to Dale P. Smith.
-rw-r--r--ice-9/ChangeLog5
-rw-r--r--ice-9/syncase.scm2
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))