diff options
| author | Marius Vollmer <mvo@zagadka.de> | 2004-05-06 16:43:14 +0000 |
|---|---|---|
| committer | Marius Vollmer <mvo@zagadka.de> | 2004-05-06 16:43:14 +0000 |
| commit | f5710d53b1a67d7b965701b4b34004b9db1a6813 (patch) | |
| tree | e6e4e2a562a827adba4f3c374c1152016dd6b68c /libguile/mallocs.h | |
| parent | 41a2f6fc0c62afeb09bd7fbae4e9eca794c26bbe (diff) | |
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/mallocs.h')
| -rw-r--r-- | libguile/mallocs.h | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/mallocs.h b/libguile/mallocs.h index 448c6e109..6e60a155e 100644 --- a/libguile/mallocs.h +++ b/libguile/mallocs.h @@ -27,9 +27,9 @@ SCM_API scm_t_bits scm_tc16_malloc; -#define SCM_MALLOCP(X) (SCM_TYP16 (X) == scm_tc16_malloc) -#define SCM_MALLOCDATA(obj) ((char *) SCM_CELL_WORD_1 (obj)) -#define SCM_SETMALLOCDATA(obj, val) (SCM_SET_CELL_WORD_1 (obj, val)) +#define SCM_MALLOCP(X) (SCM_SMOB_PREDICATE (scm_tc16_malloc, (X))) +#define SCM_MALLOCDATA(obj) ((char *) SCM_SMOB_DATA (obj)) +#define SCM_SETMALLOCDATA(obj, val) (SCM_SET_SMOB_DATA ((obj), (val))) |