summaryrefslogtreecommitdiff
path: root/libguile/procs.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/procs.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/procs.c')
-rw-r--r--libguile/procs.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/procs.c b/libguile/procs.c
index bf965ee58..bbc80cf20 100644
--- a/libguile/procs.c
+++ b/libguile/procs.c
@@ -47,7 +47,7 @@ SCM_DEFINE (scm_procedure_p, "procedure?", 1, 0, 0,
"Return @code{#t} if @var{obj} is a procedure.")
#define FUNC_NAME s_scm_procedure_p
{
- return scm_from_bool (SCM_RTL_PROGRAM_P (obj)
+ return scm_from_bool (SCM_PROGRAM_P (obj)
|| (SCM_STRUCTP (obj) && SCM_STRUCT_APPLICABLE_P (obj))
|| (SCM_HAS_TYP7 (obj, scm_tc7_smob)
&& SCM_SMOB_APPLICABLE_P (obj)));