diff options
author | Keisuke Nishida <kxn30@po.cwru.edu> | 2000-12-08 17:32:56 +0000 |
---|---|---|
committer | Keisuke Nishida <kxn30@po.cwru.edu> | 2000-12-08 17:32:56 +0000 |
commit | e841c3e0c006a4c80d873f93cb512f0ec71a5705 (patch) | |
tree | a464d2eb9ca225d04d034b40e8b029efce1ea323 /libguile/unif.h | |
parent | 38ae064c6e462bafc7e188b4586fb3e6eedec876 (diff) | |
download | guile-e841c3e0c006a4c80d873f93cb512f0ec71a5705.tar.gz |
Smob-related creanup.
Diffstat (limited to 'libguile/unif.h')
-rw-r--r-- | libguile/unif.h | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/unif.h b/libguile/unif.h index 432ac0e11..fd4d0e744 100644 --- a/libguile/unif.h +++ b/libguile/unif.h @@ -75,8 +75,8 @@ typedef struct scm_array_dim } scm_array_dim; -extern long scm_tc16_array; -#define SCM_ARRAYP(a) (SCM_NIMP(a) && (scm_tc16_array == SCM_TYP16(a))) +extern scm_bits_t scm_tc16_array; +#define SCM_ARRAYP(a) SCM_TYP16_PREDICATE (scm_tc16_array, a) #define SCM_ARRAY_NDIM(x) ((scm_sizet) (SCM_CELL_WORD_0 (x) >> 17)) #define SCM_ARRAY_CONTIGUOUS 0x10000 #define SCM_ARRAY_CONTP(x) (SCM_ARRAY_CONTIGUOUS & (SCM_CELL_WORD_0 (x))) |