(SCM_CONST_LONG): Use SCM_VCELL_INIT instead of

[bpt/guile.git] / ice-9 / syncase.scm

diff --git a/ice-9/syncase.scm b/ice-9/syncase.scm
index 4a5e61b..0074285 100644 (file)
--- 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))