diff options
Diffstat (limited to 'libguile/eval.c')
| -rw-r--r-- | libguile/eval.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/eval.c b/libguile/eval.c index 72f15314f..735e6c0b3 100644 --- a/libguile/eval.c +++ b/libguile/eval.c @@ -328,8 +328,8 @@ eval (SCM x, SCM env) case SCM_M_CALL: /* Evaluate the procedure to be applied. */ proc = EVAL1 (CAR (mx), env); - argc = SCM_I_INUM (CADR (mx)); - mx = CDDR (mx); + argc = scm_ilength (CDR (mx)); + mx = CDR (mx); if (BOOT_CLOSURE_P (proc)) { |