diff options
Diffstat (limited to 'libguile/weak-set.c')
| -rw-r--r-- | libguile/weak-set.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/weak-set.c b/libguile/weak-set.c index 7f7717e0a..ace240ce0 100644 --- a/libguile/weak-set.c +++ b/libguile/weak-set.c @@ -136,7 +136,7 @@ typedef struct { } scm_t_weak_set; -#define SCM_WEAK_SET_P(x) (!SCM_IMP (x) && SCM_TYP7(x) == scm_tc7_weak_set) +#define SCM_WEAK_SET_P(x) (SCM_HAS_TYP7 (x, scm_tc7_weak_set)) #define SCM_VALIDATE_WEAK_SET(pos, arg) \ SCM_MAKE_VALIDATE_MSG (pos, arg, WEAK_SET_P, "weak-set") #define SCM_WEAK_SET(x) ((scm_t_weak_set *) SCM_CELL_WORD_1 (x)) |