summaryrefslogtreecommitdiff
path: root/libguile/regex-posix.h
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-04-04 12:13:41 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-04-04 12:13:41 +0000
commit4260a7fced0ab02e1bb284f11f1e1b645975a713 (patch)
tree8a1b379a2af38db99d39905b46b62044d732459c /libguile/regex-posix.h
parent304b56da60ffa89989cf2943b046058083c76a3c (diff)
downloadguile-4260a7fced0ab02e1bb284f11f1e1b645975a713.tar.gz
Lots of fixes with respect to strict typing.
Diffstat (limited to 'libguile/regex-posix.h')
-rw-r--r--libguile/regex-posix.h4
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);