core: Remove vm_call_lambda.
* mes.c (vm_call_lambda): Remove. (call_lambda): Use begin_env.
This commit is contained in:
parent
33ac19d7df
commit
cc58cf2e04
8
mes.c
8
mes.c
|
@ -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
|
||||||
|
|
Loading…
Reference in a new issue