diff options
Diffstat (limited to 'libguile/weak-table.c')
-rw-r--r-- | libguile/weak-table.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/weak-table.c b/libguile/weak-table.c index 160eca2cf..9770d63b2 100644 --- a/libguile/weak-table.c +++ b/libguile/weak-table.c @@ -191,7 +191,7 @@ typedef struct { } scm_t_weak_table; -#define SCM_WEAK_TABLE_P(x) (!SCM_IMP (x) && SCM_TYP7(x) == scm_tc7_weak_table) +#define SCM_WEAK_TABLE_P(x) (SCM_HAS_TYP7 (x, scm_tc7_weak_table)) #define SCM_VALIDATE_WEAK_TABLE(pos, arg) \ SCM_MAKE_VALIDATE_MSG (pos, arg, WEAK_TABLE_P, "weak-table") #define SCM_WEAK_TABLE(x) ((scm_t_weak_table *) SCM_CELL_WORD_1 (x)) |