summaryrefslogtreecommitdiff
path: root/libguile/foreign.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/foreign.c')
-rw-r--r--libguile/foreign.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/foreign.c b/libguile/foreign.c
index 11c0f3601..5ee225da4 100644
--- a/libguile/foreign.c
+++ b/libguile/foreign.c
@@ -766,8 +766,8 @@ 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_op_assert_nargs_ee, nreq + 1), \
- SCM_PACK_RTL_12_12 (scm_op_foreign_call, 0, 1)
+ SCM_PACK_OP_24 (assert_nargs_ee, nreq + 1), \
+ SCM_PACK_OP_12_12 (foreign_call, 0, 1)
#define CODE_10(n) \
CODE (n + 0), CODE (n + 1), CODE (n + 2), CODE (n + 3), CODE (n + 4), \