/[guile]/guile/guile-core/libguile/eval.c
ViewVC logotype

Diff of /guile/guile-core/libguile/eval.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.298 by dirk, Fri Apr 25 16:22:47 2003 UTC revision 1.299 by dirk, Sun Apr 27 10:44:08 2003 UTC
# Line 3880  call_lsubr_0 (SCM proc) Line 3880  call_lsubr_0 (SCM proc)
3880  SCM  SCM
3881  scm_i_call_closure_0 (SCM proc)  scm_i_call_closure_0 (SCM proc)
3882  {  {
3883    const SCM env = SCM_ENV (proc);    const SCM env = SCM_EXTEND_ENV (SCM_CLOSURE_FORMALS (proc),
3884    const SCM formals = SCM_CLOSURE_FORMALS (proc);                                    SCM_EOL,
3885    const SCM new_env = SCM_EXTEND_ENV (formals, SCM_EOL, env);                                    SCM_ENV (proc));
3886    const SCM body = SCM_CLOSURE_BODY (proc);    const SCM result = scm_eval_body (SCM_CLOSURE_BODY (proc), env);
   const SCM result = scm_eval_body (body, new_env);  
3887    return result;    return result;
3888  }  }
3889    
# Line 3986  call_cxr_1 (SCM proc, SCM arg1) Line 3985  call_cxr_1 (SCM proc, SCM arg1)
3985  static SCM  static SCM
3986  call_closure_1 (SCM proc, SCM arg1)  call_closure_1 (SCM proc, SCM arg1)
3987  {  {
3988    const SCM env = SCM_ENV (proc);    const SCM env = SCM_EXTEND_ENV (SCM_CLOSURE_FORMALS (proc),
3989    const SCM formals = SCM_CLOSURE_FORMALS (proc);                                    scm_list_1 (arg1),
3990    const SCM args = scm_list_1 (arg1);                                    SCM_ENV (proc));
3991    const SCM new_env = SCM_EXTEND_ENV (formals, args, env);    const SCM result = scm_eval_body (SCM_CLOSURE_BODY (proc), env);
   const SCM body = SCM_CLOSURE_BODY (proc);  
   const SCM result = scm_eval_body (body, new_env);  
3992    return result;    return result;
3993  }  }
3994    
# Line 4067  call_lsubr_2 (SCM proc, SCM arg1, SCM ar Line 4064  call_lsubr_2 (SCM proc, SCM arg1, SCM ar
4064  static SCM  static SCM
4065  call_closure_2 (SCM proc, SCM arg1, SCM arg2)  call_closure_2 (SCM proc, SCM arg1, SCM arg2)
4066  {  {
4067    const SCM env = SCM_ENV (proc);    const SCM env = SCM_EXTEND_ENV (SCM_CLOSURE_FORMALS (proc),
4068    const SCM formals = SCM_CLOSURE_FORMALS (proc);                                    scm_list_2 (arg1, arg2),
4069    const SCM args = scm_list_2 (arg1, arg2);                                    SCM_ENV (proc));
4070    const SCM new_env = SCM_EXTEND_ENV (formals, args, env);    const SCM result = scm_eval_body (SCM_CLOSURE_BODY (proc), env);
   const SCM body = SCM_CLOSURE_BODY (proc);  
   const SCM result = scm_eval_body (body, new_env);  
4071    return result;    return result;
4072  }  }
4073    

Legend:
Removed from v.1.298  
changed lines
  Added in v.1.299

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26