diff options
author | Andy Wingo <wingo@pobox.com> | 2013-11-19 20:31:21 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2013-11-19 20:46:10 +0100 |
commit | 3fe96dd8088957a09cfd15747ae646595934f83a (patch) | |
tree | 355febc7baec71b6801193ac14dfd0316ff48a0f /libguile/gsubr.c | |
parent | 1b780c134b1714966ae39c6b3de10875eb5c1bd2 (diff) | |
download | guile-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.c | 38 |
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 |