/[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.282 by mdj, Sun Dec 15 14:24:34 2002 UTC revision 1.283 by mdj, Thu Dec 19 07:49:15 2002 UTC
# Line 3809  call_subr1_1 (SCM proc, SCM arg1) Line 3809  call_subr1_1 (SCM proc, SCM arg1)
3809  }  }
3810    
3811  static SCM  static SCM
3812    call_subr2o_1 (SCM proc, SCM arg1)
3813    {
3814      return SCM_SUBRF (proc) (arg1, SCM_UNDEFINED);
3815    }
3816    
3817    static SCM
3818  call_lsubr_1 (SCM proc, SCM arg1)  call_lsubr_1 (SCM proc, SCM arg1)
3819  {  {
3820    return SCM_SUBRF (proc) (scm_list_1 (arg1));    return SCM_SUBRF (proc) (scm_list_1 (arg1));
# Line 3870  scm_trampoline_1 (SCM proc) Line 3876  scm_trampoline_1 (SCM proc)
3876      case scm_tc7_subr_1:      case scm_tc7_subr_1:
3877      case scm_tc7_subr_1o:      case scm_tc7_subr_1o:
3878        return call_subr1_1;        return call_subr1_1;
3879        case scm_tc7_subr_2o:
3880          return call_subr2o_1;
3881      case scm_tc7_lsubr:      case scm_tc7_lsubr:
3882        return call_lsubr_1;        return call_lsubr_1;
3883      case scm_tc7_cxr:      case scm_tc7_cxr:
# Line 3914  call_subr2_2 (SCM proc, SCM arg1, SCM ar Line 3922  call_subr2_2 (SCM proc, SCM arg1, SCM ar
3922  }  }
3923    
3924  static SCM  static SCM
3925    call_lsubr2_2 (SCM proc, SCM arg1, SCM arg2)
3926    {
3927      return SCM_SUBRF (proc) (arg1, arg2, SCM_EOL);
3928    }
3929    
3930    static SCM
3931  call_lsubr_2 (SCM proc, SCM arg1, SCM arg2)  call_lsubr_2 (SCM proc, SCM arg1, SCM arg2)
3932  {  {
3933    return SCM_SUBRF (proc) (scm_list_2 (arg1, arg2));    return SCM_SUBRF (proc) (scm_list_2 (arg1, arg2));
# Line 3942  scm_trampoline_2 (SCM proc) Line 3956  scm_trampoline_2 (SCM proc)
3956      case scm_tc7_rpsubr:      case scm_tc7_rpsubr:
3957      case scm_tc7_asubr:      case scm_tc7_asubr:
3958        return call_subr2_2;        return call_subr2_2;
3959        case scm_tc7_lsubr_2:
3960          return call_lsubr2_2;
3961      case scm_tc7_lsubr:      case scm_tc7_lsubr:
3962        return call_lsubr_2;        return call_lsubr_2;
3963      case scm_tcs_closures:      case scm_tcs_closures:

Legend:
Removed from v.1.282  
changed lines
  Added in v.1.283

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