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/procprop.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/procprop.c')
-rw-r--r-- | libguile/procprop.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/libguile/procprop.c b/libguile/procprop.c index 488edcc7c..0c63a217c 100644 --- a/libguile/procprop.c +++ b/libguile/procprop.c @@ -61,7 +61,7 @@ scm_i_procedure_arity (SCM proc, int *req, int *opt, int *rest) return 1; } - while (!SCM_RTL_PROGRAM_P (proc)) + while (!SCM_PROGRAM_P (proc)) { if (SCM_STRUCTP (proc)) { @@ -146,7 +146,7 @@ SCM_DEFINE (scm_procedure_properties, "procedure-properties", 1, 0, 0, if (scm_is_pair (user_props) && scm_is_true (scm_car (user_props))) return scm_cdr (user_props); - if (SCM_RTL_PROGRAM_P (proc)) + if (SCM_PROGRAM_P (proc)) ret = scm_i_rtl_program_properties (proc); else ret = SCM_EOL; @@ -258,7 +258,7 @@ SCM_DEFINE (scm_procedure_name, "procedure-name", 1, 0, 0, return SCM_BOOL_F; } - if (SCM_RTL_PROGRAM_P (proc)) + if (SCM_PROGRAM_P (proc)) return scm_i_rtl_program_name (proc); else if (SCM_STRUCTP (proc) && SCM_STRUCT_APPLICABLE_P (proc)) return scm_procedure_name (SCM_STRUCT_PROCEDURE (proc)); @@ -295,7 +295,7 @@ SCM_DEFINE (scm_procedure_documentation, "procedure-documentation", 1, 0, 0, return SCM_BOOL_F; } - if (SCM_RTL_PROGRAM_P (proc)) + if (SCM_PROGRAM_P (proc)) return scm_i_rtl_program_documentation (proc); else return SCM_BOOL_F; |