Smob-related creanup.

[bpt/guile.git] / libguile / tags.h

diff --git a/libguile/tags.h b/libguile/tags.h
index 76fe2fe..6d4b6ed 100644 (file)
--- a/libguile/tags.h
+++ b/libguile/tags.h
@@ -323,6 +323,8 @@ typedef long scm_bits_t;
 #define SCM_TYP16(x)           (0xffff & SCM_CELL_TYPE (x))
 #define SCM_TYP16S(x)          (0xfeff & SCM_CELL_TYPE (x))
 
+#define SCM_TYP16_PREDICATE(tag,x) (SCM_NIMP (x) && SCM_TYP16 (x) == (tag))
+
 \f
 
 #define scm_tc7_symbol         5