Smob-related creanup.

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

diff --git a/libguile/root.h b/libguile/root.h
index b06285b..cc07ec6 100644 (file)
--- a/libguile/root.h
+++ b/libguile/root.h
@@ -82,9 +82,9 @@ extern SCM scm_sys_protects[];
 
 \f
 
-extern long scm_tc16_root;
+extern scm_bits_t scm_tc16_root;
 
-#define SCM_ROOTP(obj) (SCM_NIMP(obj) && (scm_tc16_root == SCM_TYP16 (obj)))
+#define SCM_ROOTP(obj)       SCM_TYP16_PREDICATE (scm_tc16_root, obj)
 #define SCM_ROOT_STATE(root) ((scm_root_state *) SCM_CELL_WORD_1 (root))
 
 typedef struct scm_root_state