diff options
Diffstat (limited to 'libguile/regex-posix.h')
| -rw-r--r-- | libguile/regex-posix.h | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/regex-posix.h b/libguile/regex-posix.h index 3750f2647..c56e5d205 100644 --- a/libguile/regex-posix.h +++ b/libguile/regex-posix.h @@ -51,8 +51,8 @@ #include "libguile/__scm.h" extern long scm_tc16_regex; -#define SCM_RGX(X) ((regex_t *) SCM_CDR(X)) -#define SCM_RGXP(X) (SCM_NIMP(X) && (SCM_CAR (X) == (SCM) scm_tc16_regex)) +#define SCM_RGX(X) ((regex_t *) SCM_CELL_WORD_1 (X)) +#define SCM_RGXP(X) (SCM_NIMP (X) && (SCM_CELL_TYPE (X) == scm_tc16_regex)) extern SCM scm_make_regexp (SCM pat, SCM flags); SCM scm_regexp_p (SCM x); |