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)); |
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: |
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)); |
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: |