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/programs.h | |
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/programs.h')
-rw-r--r-- | libguile/programs.h | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/programs.h b/libguile/programs.h index 4b28b6e75..26234309f 100644 --- a/libguile/programs.h +++ b/libguile/programs.h @@ -25,7 +25,7 @@ * The new RTL programs. */ -#define SCM_RTL_PROGRAM_P(x) (SCM_HAS_TYP7 (x, scm_tc7_rtl_program)) +#define SCM_RTL_PROGRAM_P(x) (SCM_HAS_TYP7 (x, scm_tc7_program)) #define SCM_RTL_PROGRAM_CODE(x) ((scm_t_uint32 *) SCM_CELL_WORD_1 (x)) #define SCM_RTL_PROGRAM_FREE_VARIABLES(x) (SCM_CELL_OBJECT_LOC (x, 2)) #define SCM_RTL_PROGRAM_FREE_VARIABLE_REF(x,i) (SCM_RTL_PROGRAM_FREE_VARIABLES (x)[i]) @@ -36,7 +36,7 @@ static inline SCM scm_i_make_rtl_program (const scm_t_uint32 *code) { - return scm_cell (scm_tc7_rtl_program, (scm_t_bits)code); + return scm_cell (scm_tc7_program, (scm_t_bits)code); } SCM_INTERNAL SCM scm_make_rtl_program (SCM bytevector, SCM byte_offset, SCM free_variables); |