diff options
author | Andy Wingo <wingo@pobox.com> | 2013-11-19 18:24:22 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2013-11-19 18:24:54 +0100 |
commit | e0755cd12ae365c1b903fc6c57afb17231cf5468 (patch) | |
tree | eba00caccbccd823172fdfd84b34ece1007273e8 /libguile/vm-engine.c | |
parent | 9121d9f1ac21a91d2031a186a5b3c77d551acaa4 (diff) | |
download | guile-e0755cd12ae365c1b903fc6c57afb17231cf5468.tar.gz |
Rename scm_tc7_rtl_program to scm_tc7_program
* libguile/tags.h (scm_tc7_program): Rename from scm_tc7_rtl_program.
* libguile/continuations.c:
* libguile/control.c:
* libguile/evalext.c:
* libguile/foreign.c:
* libguile/goops.c:
* libguile/gsubr.c:
* libguile/print.c:
* libguile/programs.c:
* libguile/programs.h:
* libguile/vm-engine.c: Adapt users.
* module/system/vm/assembler.scm: Rename a tc7-rtl-program local to
tc7-program.
* libguile/tags.h (scm_tc7_program): Rename from scm_tc7_rtl_program. * libguile/continuations.c: * libguile/control.c: * libguile/evalext.c: * libguile/foreign.c: * libguile/goops.c: * libguile/gsubr.c: * libguile/print.c: * libguile/programs.c: * libguile/programs.h: * libguile/vm-engine.c: Adapt users.
* module/system/vm/assembler.scm: Rename a tc7-rtl-program local to
tc7-program.
Diffstat (limited to 'libguile/vm-engine.c')
-rw-r--r-- | libguile/vm-engine.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/vm-engine.c b/libguile/vm-engine.c index 3d689f7b1..f26b876ba 100644 --- a/libguile/vm-engine.c +++ b/libguile/vm-engine.c @@ -1558,7 +1558,7 @@ RTL_VM_NAME (SCM vm, SCM program, SCM *argv, size_t nargs_) SCM_UNPACK_RTL_24 (ip[2], nfree); // FIXME: Assert range of nfree? - closure = scm_words (scm_tc7_rtl_program | (nfree << 16), nfree + 2); + closure = scm_words (scm_tc7_program | (nfree << 16), nfree + 2); SCM_SET_CELL_WORD_1 (closure, ip + offset); // FIXME: Elide these initializations? for (n = 0; n < nfree; n++) |