From f304437e707be319ab93f062b02c66d61a4e578c Mon Sep 17 00:00:00 2001 From: Dirk Herrmann Date: Wed, 1 Nov 2000 09:37:30 +0000 Subject: [PATCH] =?UTF-8?q?*=20string=3D=3F=20requires=20a=20string=20argu?= =?UTF-8?q?ment.=20=20Thanks=20to=20Dale=20P.=20Smith.?= --- ice-9/ChangeLog | 5 +++++ ice-9/syncase.scm | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) 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 + + * syncase.scm (eval): string=? requires a string argument. + Thanks to Dale P. Smith for the patch. + 2000-10-15 Neil Jerram * 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))