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/foreign.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/foreign.c')
-rw-r--r-- | libguile/foreign.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/foreign.c b/libguile/foreign.c index c6bb3737b..2ec0a1e3c 100644 --- a/libguile/foreign.c +++ b/libguile/foreign.c @@ -796,7 +796,7 @@ get_foreign_stub_code (unsigned int nargs) int scm_i_foreign_arity (SCM foreign, int *req, int *opt, int *rest) { - const scm_t_uint32 *code = SCM_RTL_PROGRAM_CODE (foreign); + const scm_t_uint32 *code = SCM_PROGRAM_CODE (foreign); if (code < foreign_stub_code) return 0; @@ -823,8 +823,8 @@ cif_to_procedure (SCM cif, SCM func_ptr) ret = scm_words (scm_tc7_program | (nfree << 16) | flags, nfree + 2); SCM_SET_CELL_WORD_1 (ret, get_foreign_stub_code (c_cif->nargs)); - SCM_RTL_PROGRAM_FREE_VARIABLE_SET (ret, 0, cif); - SCM_RTL_PROGRAM_FREE_VARIABLE_SET (ret, 1, func_ptr); + SCM_PROGRAM_FREE_VARIABLE_SET (ret, 0, cif); + SCM_PROGRAM_FREE_VARIABLE_SET (ret, 1, func_ptr); return ret; } |