summaryrefslogtreecommitdiff
path: root/libguile/regex-posix.h
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2004-05-06 16:43:14 +0000
committerMarius Vollmer <mvo@zagadka.de>2004-05-06 16:43:14 +0000
commitf5710d53b1a67d7b965701b4b34004b9db1a6813 (patch)
treee6e4e2a562a827adba4f3c374c1152016dd6b68c /libguile/regex-posix.h
parent41a2f6fc0c62afeb09bd7fbae4e9eca794c26bbe (diff)
downloadguile-f5710d53b1a67d7b965701b4b34004b9db1a6813.tar.gz
Use SCM_SMOB_* instead of SCM_CELL_* as appropriate. Use
SCM_SMOB_FLAGS and SCM_SET_SMOB_FLAGS instead of accessing the zeroth word directly. Use SCM_SMOB_PREDICATE as appropriate.
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 213e51aeb..37207503b 100644
--- a/libguile/regex-posix.h
+++ b/libguile/regex-posix.h
@@ -25,8 +25,8 @@
#include "libguile/__scm.h"
SCM_API scm_t_bits scm_tc16_regex;
-#define SCM_RGX(X) ((regex_t *) SCM_CELL_WORD_1 (X))
-#define SCM_RGXP(X) (!SCM_IMP (X) && (SCM_CELL_TYPE (X) == scm_tc16_regex))
+#define SCM_RGX(X) ((regex_t *) SCM_SMOB_DATA (X))
+#define SCM_RGXP(X) (SCM_SMOB_PREDICATE (scm_tc16_regex, (X)))
SCM_API SCM scm_make_regexp (SCM pat, SCM flags);
SCM_API SCM scm_regexp_p (SCM x);