diff options
Diffstat (limited to 'libguile/gsubr.c')
-rw-r--r-- | libguile/gsubr.c | 38 |
1 files changed, 19 insertions, 19 deletions
diff --git a/libguile/gsubr.c b/libguile/gsubr.c index 1969dbfd0..c6fce363d 100644 --- a/libguile/gsubr.c +++ b/libguile/gsubr.c @@ -75,45 +75,45 @@ /* A: req; B: opt; C: rest */ #define A(nreq) \ - SCM_PACK_RTL_24 (scm_op_assert_nargs_ee, nreq + 1), \ - SCM_PACK_RTL_24 (scm_op_subr_call, 0), \ + SCM_PACK_OP_24 (assert_nargs_ee, nreq + 1), \ + SCM_PACK_OP_24 (subr_call, 0), \ 0, \ 0 #define B(nopt) \ - SCM_PACK_RTL_24 (scm_op_assert_nargs_le, nopt + 1), \ - SCM_PACK_RTL_24 (scm_op_alloc_frame, nopt + 1), \ - SCM_PACK_RTL_24 (scm_op_subr_call, 0), \ + SCM_PACK_OP_24 (assert_nargs_le, nopt + 1), \ + SCM_PACK_OP_24 (alloc_frame, nopt + 1), \ + SCM_PACK_OP_24 (subr_call, 0), \ 0 #define C() \ - SCM_PACK_RTL_24 (scm_op_bind_rest, 1), \ - SCM_PACK_RTL_24 (scm_op_subr_call, 0), \ + SCM_PACK_OP_24 (bind_rest, 1), \ + SCM_PACK_OP_24 (subr_call, 0), \ 0, \ 0 #define AB(nreq, nopt) \ - SCM_PACK_RTL_24 (scm_op_assert_nargs_ge, nreq + 1), \ - SCM_PACK_RTL_24 (scm_op_assert_nargs_le, nreq + nopt + 1), \ - SCM_PACK_RTL_24 (scm_op_alloc_frame, nreq + nopt + 1), \ - SCM_PACK_RTL_24 (scm_op_subr_call, 0) + SCM_PACK_OP_24 (assert_nargs_ge, nreq + 1), \ + SCM_PACK_OP_24 (assert_nargs_le, nreq + nopt + 1), \ + SCM_PACK_OP_24 (alloc_frame, nreq + nopt + 1), \ + SCM_PACK_OP_24 (subr_call, 0) #define AC(nreq) \ - SCM_PACK_RTL_24 (scm_op_assert_nargs_ge, nreq + 1), \ - SCM_PACK_RTL_24 (scm_op_bind_rest, nreq + 1), \ - SCM_PACK_RTL_24 (scm_op_subr_call, 0), \ + SCM_PACK_OP_24 (assert_nargs_ge, nreq + 1), \ + SCM_PACK_OP_24 (bind_rest, nreq + 1), \ + SCM_PACK_OP_24 (subr_call, 0), \ 0 #define BC(nopt) \ - SCM_PACK_RTL_24 (scm_op_bind_rest, nopt + 1), \ - SCM_PACK_RTL_24 (scm_op_subr_call, 0), \ + SCM_PACK_OP_24 (bind_rest, nopt + 1), \ + SCM_PACK_OP_24 (subr_call, 0), \ 0, \ 0 #define ABC(nreq, nopt) \ - SCM_PACK_RTL_24 (scm_op_assert_nargs_ge, nreq + 1), \ - SCM_PACK_RTL_24 (scm_op_bind_rest, nreq + nopt + 1), \ - SCM_PACK_RTL_24 (scm_op_subr_call, 0), \ + SCM_PACK_OP_24 (assert_nargs_ge, nreq + 1), \ + SCM_PACK_OP_24 (bind_rest, nreq + nopt + 1), \ + SCM_PACK_OP_24 (subr_call, 0), \ 0 |