* test-suite/tests/chars.test: Fixed test comment. The bug that

[bpt/guile.git] / libguile / eval.c

diff --git a/libguile/eval.c b/libguile/eval.c
index 48a76e7..e84ac23 100644 (file)
--- a/libguile/eval.c
+++ b/libguile/eval.c
@@ -2448,7 +2448,7 @@ dispatch:
       /* new syntactic forms go here. */
     case SCM_BIT7 (SCM_MAKISYM (0)):
       proc = SCM_CAR (x);
-      if (!SCM_IFLAGP (proc))
+      if (!SCM_ISYMP (proc))
         goto evapply;
 
       switch (SCM_ISYMNUM (proc))