summaryrefslogtreecommitdiff
path: root/libguile/gsubr.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2013-11-19 20:31:21 +0100
committerAndy Wingo <wingo@pobox.com>2013-11-19 20:46:10 +0100
commit3fe96dd8088957a09cfd15747ae646595934f83a (patch)
tree355febc7baec71b6801193ac14dfd0316ff48a0f /libguile/gsubr.c
parent1b780c134b1714966ae39c6b3de10875eb5c1bd2 (diff)
downloadguile-3fe96dd8088957a09cfd15747ae646595934f83a.tar.gz
scm_rtl_op_* -> scm_op_*
* libguile/instructions.h (scm_opcode): Rename from scm_rtl_opcode. Rename opcodes from scm_rtl_op_* to scm_op_*. * libguile/continuations.c: * libguile/control.c: * libguile/foreign.c: * libguile/gsubr.c: * libguile/instructions.c: * libguile/vm.c: Adapt.
Diffstat (limited to 'libguile/gsubr.c')
-rw-r--r--libguile/gsubr.c38
1 files changed, 19 insertions, 19 deletions
diff --git a/libguile/gsubr.c b/libguile/gsubr.c
index f089a411a..1969dbfd0 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_rtl_op_assert_nargs_ee, nreq + 1), \
- SCM_PACK_RTL_24 (scm_rtl_op_subr_call, 0), \
+ SCM_PACK_RTL_24 (scm_op_assert_nargs_ee, nreq + 1), \
+ SCM_PACK_RTL_24 (scm_op_subr_call, 0), \
0, \
0
#define B(nopt) \
- SCM_PACK_RTL_24 (scm_rtl_op_assert_nargs_le, nopt + 1), \
- SCM_PACK_RTL_24 (scm_rtl_op_alloc_frame, nopt + 1), \
- SCM_PACK_RTL_24 (scm_rtl_op_subr_call, 0), \
+ 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), \
0
#define C() \
- SCM_PACK_RTL_24 (scm_rtl_op_bind_rest, 1), \
- SCM_PACK_RTL_24 (scm_rtl_op_subr_call, 0), \
+ SCM_PACK_RTL_24 (scm_op_bind_rest, 1), \
+ SCM_PACK_RTL_24 (scm_op_subr_call, 0), \
0, \
0
#define AB(nreq, nopt) \
- SCM_PACK_RTL_24 (scm_rtl_op_assert_nargs_ge, nreq + 1), \
- SCM_PACK_RTL_24 (scm_rtl_op_assert_nargs_le, nreq + nopt + 1), \
- SCM_PACK_RTL_24 (scm_rtl_op_alloc_frame, nreq + nopt + 1), \
- SCM_PACK_RTL_24 (scm_rtl_op_subr_call, 0)
+ 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)
#define AC(nreq) \
- SCM_PACK_RTL_24 (scm_rtl_op_assert_nargs_ge, nreq + 1), \
- SCM_PACK_RTL_24 (scm_rtl_op_bind_rest, nreq + 1), \
- SCM_PACK_RTL_24 (scm_rtl_op_subr_call, 0), \
+ 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), \
0
#define BC(nopt) \
- SCM_PACK_RTL_24 (scm_rtl_op_bind_rest, nopt + 1), \
- SCM_PACK_RTL_24 (scm_rtl_op_subr_call, 0), \
+ SCM_PACK_RTL_24 (scm_op_bind_rest, nopt + 1), \
+ SCM_PACK_RTL_24 (scm_op_subr_call, 0), \
0, \
0
#define ABC(nreq, nopt) \
- SCM_PACK_RTL_24 (scm_rtl_op_assert_nargs_ge, nreq + 1), \
- SCM_PACK_RTL_24 (scm_rtl_op_bind_rest, nreq + nopt + 1), \
- SCM_PACK_RTL_24 (scm_rtl_op_subr_call, 0), \
+ 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), \
0