diff options
Diffstat (limited to 'libguile/srcprop.h')
-rw-r--r-- | libguile/srcprop.h | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/srcprop.h b/libguile/srcprop.h index 023ee8b16..8c5a42faf 100644 --- a/libguile/srcprop.h +++ b/libguile/srcprop.h @@ -78,7 +78,7 @@ do { \ /* {Source properties} */ -extern long scm_tc16_srcprops; +extern scm_bits_t scm_tc16_srcprops; typedef struct scm_srcprops { @@ -95,7 +95,7 @@ typedef struct scm_srcprops_chunk scm_srcprops srcprops[1]; } scm_srcprops_chunk; -#define SRCPROPSP(p) (SCM_NIMP(p) && (SCM_TYP16 (p) == scm_tc16_srcprops)) +#define SRCPROPSP(p) (SCM_TYP16_PREDICATE (scm_tc16_srcprops, p)) #define SRCPROPBRK(p) (SCM_BOOL (SCM_CELL_WORD_0 (p) & (1L << 16))) #define SRCPROPPOS(p) ((scm_srcprops *) SCM_CELL_WORD_1 (p))->pos #define SRCPROPLINE(p) (SRCPROPPOS(p) >> 12) |