core: Remove vm_call_lambda.

* mes.c (vm_call_lambda): Remove.
 (call_lambda): Use begin_env.

diff --git a/mes.c b/mes.c
index 785f95e67a13d8972c98dd1bfe57c67b7eda3d69..49df0b5f0d313eabddc996e41dd506cd2ee99202 100644 (file)
--- a/mes.c
+++ b/mes.c
@@ -349,12 +349,6 @@ vm_evlis_env ()
   return cons (r2, r1);
 }
 
-SCM
-vm_call_lambda ()
-{
-  return vm_call (vm_begin_env, r1, cell_undefined, r0);
-}
-
 SCM
 call_lambda (SCM e, SCM x, SCM aa, SCM a) ///((internal))
 {
@@ -363,7 +357,7 @@ call_lambda (SCM e, SCM x, SCM aa, SCM a) ///((internal))
   r0 = cl;
   r2 = a;
   r3 = aa;
-  return vm_call_lambda ();
+  return vm_begin_env ();
 }
 
 SCM