summaryrefslogtreecommitdiff
path: root/libguile/eval.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/eval.c')
-rw-r--r--libguile/eval.c3
1 files changed, 3 insertions, 0 deletions
diff --git a/libguile/eval.c b/libguile/eval.c
index 60e82d54d..48a76e731 100644
--- a/libguile/eval.c
+++ b/libguile/eval.c
@@ -2448,6 +2448,9 @@ dispatch:
/* new syntactic forms go here. */
case SCM_BIT7 (SCM_MAKISYM (0)):
proc = SCM_CAR (x);
+ if (!SCM_IFLAGP (proc))
+ goto evapply;
+
switch (SCM_ISYMNUM (proc))
{