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/gsubr.h | |
| 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/gsubr.h')
| -rw-r--r-- | libguile/gsubr.h | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/libguile/gsubr.h b/libguile/gsubr.h index 3350e2fc8..065b94766 100644 --- a/libguile/gsubr.h +++ b/libguile/gsubr.h @@ -36,18 +36,18 @@ /* Max number of args to the C procedure backing a gsubr */ #define SCM_GSUBR_MAX 10 -#define SCM_PRIMITIVE_P(x) (SCM_RTL_PROGRAM_P (x) && SCM_PROGRAM_IS_PRIMITIVE (x)) +#define SCM_PRIMITIVE_P(x) (SCM_PROGRAM_P (x) && SCM_PROGRAM_IS_PRIMITIVE (x)) -#define SCM_PRIMITIVE_GENERIC_P(x) (SCM_RTL_PROGRAM_P (x) && SCM_PROGRAM_IS_PRIMITIVE_GENERIC (x)) +#define SCM_PRIMITIVE_GENERIC_P(x) (SCM_PROGRAM_P (x) && SCM_PROGRAM_IS_PRIMITIVE_GENERIC (x)) #define SCM_SUBRF(x) \ ((SCM (*) (void)) \ - SCM_POINTER_VALUE (SCM_RTL_PROGRAM_FREE_VARIABLE_REF (x, 0))) + SCM_POINTER_VALUE (SCM_PROGRAM_FREE_VARIABLE_REF (x, 0))) -#define SCM_SUBR_NAME(x) (SCM_RTL_PROGRAM_FREE_VARIABLE_REF (x, 1)) +#define SCM_SUBR_NAME(x) (SCM_PROGRAM_FREE_VARIABLE_REF (x, 1)) #define SCM_SUBR_GENERIC(x) \ - ((SCM *) SCM_POINTER_VALUE (SCM_RTL_PROGRAM_FREE_VARIABLE_REF (x, 2))) + ((SCM *) SCM_POINTER_VALUE (SCM_PROGRAM_FREE_VARIABLE_REF (x, 2))) #define SCM_SET_SUBR_GENERIC(x, g) \ (*SCM_SUBR_GENERIC (x) = (g)) |