core: Remove vm_call_lambda.

* mes.c (vm_call_lambda): Remove.
 (call_lambda): Use begin_env.
This commit is contained in:
Jan Nieuwenhuizen 2016-12-22 16:16:09 +01:00
parent 33ac19d7df
commit cc58cf2e04

8
mes.c
View file

@ -349,12 +349,6 @@ vm_evlis_env ()
return cons (r2, r1); return cons (r2, r1);
} }
SCM
vm_call_lambda ()
{
return vm_call (vm_begin_env, r1, cell_undefined, r0);
}
SCM SCM
call_lambda (SCM e, SCM x, SCM aa, SCM a) ///((internal)) 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; r0 = cl;
r2 = a; r2 = a;
r3 = aa; r3 = aa;
return vm_call_lambda (); return vm_begin_env ();
} }
SCM SCM