mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-29 14:30:34 +02:00
Code Activity

* eval.c (call_subr2o_1, call_lsubr2_2): New functions.

Browse source 
(scm_trampoline_1, scm_trampoline_2): Use them.
This commit is contained in:
Mikael Djurfeldt 2002-12-19 07:49:15 +00:00
parent b21dcf17d7
commit 9ed246339f
2 changed files with 21 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/ChangeLog
View file

@ -1,3 +1,8 @@
2002-12-19 Mikael Djurfeldt <mdj@kvast.blakulla.net>
* eval.c (call_subr2o_1, call_lsubr2_2): New functions.
(scm_trampoline_1, scm_trampoline_2): Use them.
2002-12-18 Mikael Djurfeldt <mdj@kvast.blakulla.net>
Partial introduction of real plugin interface.

16
libguile/eval.c
View file

@ -3808,6 +3808,12 @@ call_subr1_1 (SCM proc, SCM arg1)
return SCM_SUBRF (proc) (arg1);
}
static SCM
call_subr2o_1 (SCM proc, SCM arg1)
{
return SCM_SUBRF (proc) (arg1, SCM_UNDEFINED);
}
static SCM
call_lsubr_1 (SCM proc, SCM arg1)
{
@ -3870,6 +3876,8 @@ scm_trampoline_1 (SCM proc)
case scm_tc7_subr_1:
case scm_tc7_subr_1o:
return call_subr1_1;
case scm_tc7_subr_2o:
return call_subr2o_1;
case scm_tc7_lsubr:
return call_lsubr_1;
case scm_tc7_cxr:
@ -3913,6 +3921,12 @@ call_subr2_2 (SCM proc, SCM arg1, SCM arg2)
return SCM_SUBRF (proc) (arg1, arg2);
}
static SCM
call_lsubr2_2 (SCM proc, SCM arg1, SCM arg2)
{
return SCM_SUBRF (proc) (arg1, arg2, SCM_EOL);
}
static SCM
call_lsubr_2 (SCM proc, SCM arg1, SCM arg2)
{
@ -3942,6 +3956,8 @@ scm_trampoline_2 (SCM proc)
case scm_tc7_rpsubr:
case scm_tc7_asubr:
return call_subr2_2;
case scm_tc7_lsubr_2:
return call_lsubr2_2;
case scm_tc7_lsubr:
return call_lsubr_2;
case scm_tcs_closures: