temporarily disable elisp exception tests

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

diff --git a/libguile/eval.c b/libguile/eval.c
index b69b5b2..735e6c0 100644 (file)
--- 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))
         {
@@ -413,7 +413,7 @@ eval (SCM x, SCM env)
         return mx;
       else
         {
-          SCM mod, var;
+          SCM var;
 
           var = scm_sys_resolve_variable (mx, env_tail (env));
           scm_set_cdr_x (x, var);