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/random.h | |
| parent | 41a2f6fc0c62afeb09bd7fbae4e9eca794c26bbe (diff) | |
| download | guile-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/random.h')
| -rw-r--r-- | libguile/random.h | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/random.h b/libguile/random.h index f56b493fb..8620c3738 100644 --- a/libguile/random.h +++ b/libguile/random.h @@ -84,8 +84,8 @@ SCM_API SCM scm_c_random_bignum (scm_t_rstate *, SCM m); * Scheme level interface */ SCM_API scm_t_bits scm_tc16_rstate; -#define SCM_RSTATEP(obj) SCM_TYP16_PREDICATE (scm_tc16_rstate, obj) -#define SCM_RSTATE(obj) ((scm_t_rstate *) SCM_CELL_WORD_1 (obj)) +#define SCM_RSTATEP(obj) SCM_SMOB_PREDICATE (scm_tc16_rstate, obj) +#define SCM_RSTATE(obj) ((scm_t_rstate *) SCM_SMOB_DATA (obj)) SCM_API unsigned char scm_masktab[256]; |