diff options
Diffstat (limited to 'libguile/eval.c')
-rw-r--r-- | libguile/eval.c | 3 |
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)) { |