1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 05:50:26 +02:00

* eval.c (scm_i_call_closure_0, call_closure_1, call_closure_2):

Partially reverted patch from 2003-04-23 in oder to find a better
	compromise between readability and debuggability.
This commit is contained in:
Dirk Herrmann 2003-04-27 10:44:08 +00:00
parent d513f5c6b3
commit 6a3f13f070
2 changed files with 18 additions and 17 deletions

View file

@ -1,3 +1,9 @@
2003-04-27 Dirk Herrmann <D.Herrmann@tu-bs.de>
* eval.c (scm_i_call_closure_0, call_closure_1, call_closure_2):
Partially reverted patch from 2003-04-23 in oder to find a better
compromise between readability and debuggability.
2003-04-25 Dirk Herrmann <D.Herrmann@tu-bs.de>
* eval.c, eval.h, goops.c, goops.h (scm_m_atslot_ref,

View file

@ -3880,11 +3880,10 @@ call_lsubr_0 (SCM proc)
SCM
scm_i_call_closure_0 (SCM proc)
{
const SCM env = SCM_ENV (proc);
const SCM formals = SCM_CLOSURE_FORMALS (proc);
const SCM new_env = SCM_EXTEND_ENV (formals, SCM_EOL, env);
const SCM body = SCM_CLOSURE_BODY (proc);
const SCM result = scm_eval_body (body, new_env);
const SCM env = SCM_EXTEND_ENV (SCM_CLOSURE_FORMALS (proc),
SCM_EOL,
SCM_ENV (proc));
const SCM result = scm_eval_body (SCM_CLOSURE_BODY (proc), env);
return result;
}
@ -3986,12 +3985,10 @@ call_cxr_1 (SCM proc, SCM arg1)
static SCM
call_closure_1 (SCM proc, SCM arg1)
{
const SCM env = SCM_ENV (proc);
const SCM formals = SCM_CLOSURE_FORMALS (proc);
const SCM args = scm_list_1 (arg1);
const SCM new_env = SCM_EXTEND_ENV (formals, args, env);
const SCM body = SCM_CLOSURE_BODY (proc);
const SCM result = scm_eval_body (body, new_env);
const SCM env = SCM_EXTEND_ENV (SCM_CLOSURE_FORMALS (proc),
scm_list_1 (arg1),
SCM_ENV (proc));
const SCM result = scm_eval_body (SCM_CLOSURE_BODY (proc), env);
return result;
}
@ -4067,12 +4064,10 @@ call_lsubr_2 (SCM proc, SCM arg1, SCM arg2)
static SCM
call_closure_2 (SCM proc, SCM arg1, SCM arg2)
{
const SCM env = SCM_ENV (proc);
const SCM formals = SCM_CLOSURE_FORMALS (proc);
const SCM args = scm_list_2 (arg1, arg2);
const SCM new_env = SCM_EXTEND_ENV (formals, args, env);
const SCM body = SCM_CLOSURE_BODY (proc);
const SCM result = scm_eval_body (body, new_env);
const SCM env = SCM_EXTEND_ENV (SCM_CLOSURE_FORMALS (proc),
scm_list_2 (arg1, arg2),
SCM_ENV (proc));
const SCM result = scm_eval_body (SCM_CLOSURE_BODY (proc), env);
return result;
}