diff options
author | Andy Wingo <wingo@pobox.com> | 2013-11-19 18:28:19 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2013-11-19 18:28:19 +0100 |
commit | d798a895cccf4a25bfecd2785eb347903b76213b (patch) | |
tree | aec3d1f504277dbf03cbb82b22c34de0251c7adc /libguile/gsubr.c | |
parent | e0755cd12ae365c1b903fc6c57afb17231cf5468 (diff) | |
download | guile-d798a895cccf4a25bfecd2785eb347903b76213b.tar.gz |
Remove RTL_ infix from macros
* libguile/programs.h (SCM_PROGRAM_P):
(SCM_PROGRAM_CODE):
(SCM_PROGRAM_FREE_VARIABLES):
(SCM_PROGRAM_FREE_VARIABLE_REF):
(SCM_PROGRAM_FREE_VARIABLE_SET):
(SCM_PROGRAM_NUM_FREE_VARIABLES):
(SCM_VALIDATE_PROGRAM): Remove RTL_ infix.
* libguile/continuations.c:
* libguile/continuations.h:
* libguile/control.c:
* libguile/foreign.c:
* libguile/frames.c:
* libguile/gsubr.c:
* libguile/gsubr.h:
* libguile/procprop.c:
* libguile/procs.c:
* libguile/programs.c:
* libguile/stacks.c:
* libguile/vm-engine.c: Adapt.
Diffstat (limited to 'libguile/gsubr.c')
-rw-r--r-- | libguile/gsubr.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/libguile/gsubr.c b/libguile/gsubr.c index 391be4737..f089a411a 100644 --- a/libguile/gsubr.c +++ b/libguile/gsubr.c @@ -241,10 +241,10 @@ create_subr (int define, const char *name, ret = scm_words (scm_tc7_program | (nfree << 16) | flags, nfree + 2); SCM_SET_CELL_WORD_1 (ret, get_subr_stub_code (nreq, nopt, rest)); - SCM_RTL_PROGRAM_FREE_VARIABLE_SET (ret, 0, scm_from_pointer (fcn, NULL)); - SCM_RTL_PROGRAM_FREE_VARIABLE_SET (ret, 1, sname); + SCM_PROGRAM_FREE_VARIABLE_SET (ret, 0, scm_from_pointer (fcn, NULL)); + SCM_PROGRAM_FREE_VARIABLE_SET (ret, 1, sname); if (generic_loc) - SCM_RTL_PROGRAM_FREE_VARIABLE_SET (ret, 2, + SCM_PROGRAM_FREE_VARIABLE_SET (ret, 2, scm_from_pointer (generic_loc, NULL)); if (define) @@ -259,7 +259,7 @@ create_subr (int define, const char *name, int scm_i_primitive_arity (SCM prim, int *req, int *opt, int *rest) { - const scm_t_uint32 *code = SCM_RTL_PROGRAM_CODE (prim); + const scm_t_uint32 *code = SCM_PROGRAM_CODE (prim); unsigned idx, nargs, base, next; if (code < subr_stub_code) @@ -289,7 +289,7 @@ scm_i_primitive_arity (SCM prim, int *req, int *opt, int *rest) scm_t_uintptr scm_i_primitive_call_ip (SCM subr) { - const scm_t_uint32 *code = SCM_RTL_PROGRAM_CODE (subr); + const scm_t_uint32 *code = SCM_PROGRAM_CODE (subr); /* A stub is 4 32-bit words long, or 16 bytes. The call will be one instruction, in either the fourth, third, or second word. Return a |