summaryrefslogtreecommitdiff
path: root/libguile/vm-engine.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/vm-engine.c')
-rw-r--r--libguile/vm-engine.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/vm-engine.c b/libguile/vm-engine.c
index 01c3c1142..0f8fed359 100644
--- a/libguile/vm-engine.c
+++ b/libguile/vm-engine.c
@@ -664,7 +664,7 @@ VM_NAME (SCM vm, SCM program, SCM *argv, int nargs)
fp[1] = vals; \
RESET_FRAME (3); \
ip = (scm_t_uint32 *) rtl_apply_code; \
- goto op_apply; \
+ goto op_tail_apply; \
} while (0)
#define BR_NARGS(rel) \
@@ -1282,13 +1282,13 @@ RTL_VM_NAME (SCM vm, SCM program, SCM *argv, size_t nargs_)
NEXT (0);
}
- /* apply _:24
+ /* tail-apply _:24
*
* Tail-apply the procedure in local slot 0 to the rest of the
* arguments. This instruction is part of the implementation of
* `apply', and is not generated by the compiler.
*/
- VM_DEFINE_OP (11, apply, "apply", OP1 (U8_X24))
+ VM_DEFINE_OP (11, tail_apply, "tail-apply", OP1 (U8_X24))
{
int i, list_idx, list_len, nargs;
SCM list;