summaryrefslogtreecommitdiff
path: root/libguile/procprop.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/procprop.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/procprop.c')
-rw-r--r--libguile/procprop.c8
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;