summaryrefslogtreecommitdiff
path: root/libguile/gsubr.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2013-11-19 18:28:19 +0100
committerAndy Wingo <wingo@pobox.com>2013-11-19 18:28:19 +0100
commitd798a895cccf4a25bfecd2785eb347903b76213b (patch)
treeaec3d1f504277dbf03cbb82b22c34de0251c7adc /libguile/gsubr.c
parente0755cd12ae365c1b903fc6c57afb17231cf5468 (diff)
downloadguile-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.c10
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