From 9ed246339f66374da3045934593dcbb1d306a428 Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Thu, 19 Dec 2002 07:49:15 +0000 Subject: [PATCH] * eval.c (call_subr2o_1, call_lsubr2_2): New functions. (scm_trampoline_1, scm_trampoline_2): Use them. --- libguile/ChangeLog | 5 +++++ libguile/eval.c | 16 ++++++++++++++++ 2 files changed, 21 insertions(+) diff --git a/libguile/ChangeLog b/libguile/ChangeLog index b7c35e25e..dd25b8b67 100644 --- a/libguile/ChangeLog +++ b/libguile/ChangeLog @@ -1,3 +1,8 @@ +2002-12-19 Mikael Djurfeldt + + * eval.c (call_subr2o_1, call_lsubr2_2): New functions. + (scm_trampoline_1, scm_trampoline_2): Use them. + 2002-12-18 Mikael Djurfeldt Partial introduction of real plugin interface. diff --git a/libguile/eval.c b/libguile/eval.c index ac3877e3a..abbf38cde 100644 --- a/libguile/eval.c +++ b/libguile/eval.c @@ -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: