mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 04:10:18 +02:00
Code Activity

RTL VM: Rename 'apply' instruction to 'tail-apply'.

Browse source 
* libguile/vm-engine.c (apply, tail-apply): apply -> tail-apply.
  (RETURN_VALUE_LIST): goto op_apply -> goto op_tail_apply.

* libguile/vm.c (rtl_apply_code): scm_rtl_op_apply ->
  scm_rtl_op_tail_apply.
This commit is contained in:
Mark H Weaver 2013-08-17 05:37:45 -04:00 • committed by Andy Wingo
parent e79ed6b1d7
commit adb8d905df
2 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/vm-engine.c
View file

@ -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;