summaryrefslogtreecommitdiff
path: root/libguile/foreign.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/foreign.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/foreign.c')
-rw-r--r--libguile/foreign.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/foreign.c b/libguile/foreign.c
index 2ec0a1e3c..11c0f3601 100644
--- a/libguile/foreign.c
+++ b/libguile/foreign.c
@@ -766,10 +766,10 @@ SCM_DEFINE (scm_pointer_to_procedure, "pointer->procedure", 3, 0, 0,
/* We support calling foreign functions with up to 100 arguments. */
#define CODE(nreq) \
- SCM_PACK_RTL_24 (scm_rtl_op_assert_nargs_ee, nreq + 1), \
- SCM_PACK_RTL_12_12 (scm_rtl_op_foreign_call, 0, 1)
+ SCM_PACK_RTL_24 (scm_op_assert_nargs_ee, nreq + 1), \
+ SCM_PACK_RTL_12_12 (scm_op_foreign_call, 0, 1)
-#define CODE_10(n) \
+#define CODE_10(n) \
CODE (n + 0), CODE (n + 1), CODE (n + 2), CODE (n + 3), CODE (n + 4), \
CODE (n + 5), CODE (n + 6), CODE (n + 7), CODE (n + 8), CODE (n + 9)