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/srcprop.h | |
parent | 38ae064c6e462bafc7e188b4586fb3e6eedec876 (diff) | |
download | guile-e841c3e0c006a4c80d873f93cb512f0ec71a5705.tar.gz |
Smob-related creanup.
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) |