summaryrefslogtreecommitdiff
path: root/libguile/eval.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/eval.c')
-rw-r--r--libguile/eval.c4
1 files changed, 1 insertions, 3 deletions
diff --git a/libguile/eval.c b/libguile/eval.c
index 36199a60b..43a182a5a 100644
--- a/libguile/eval.c
+++ b/libguile/eval.c
@@ -266,11 +266,9 @@ eval (SCM x, SCM env)
loop:
SCM_TICK;
- if (!SCM_MEMOIZED_P (x))
- abort ();
mx = SCM_MEMOIZED_ARGS (x);
- switch (SCM_MEMOIZED_TAG (x))
+ switch (SCM_I_INUM (SCM_CAR (x)))
{
case SCM_M_SEQ:
eval (CAR (mx), env);