diff options
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))) |