\f
extern int scm_tc16_keyword;
-#define SCM_KEYWORDP(X) (SCM_NIMP(X) && (SCM_CARBITS (X) == scm_tc16_keyword))
+#define SCM_KEYWORDP(X) (SCM_NIMP(X) && (SCM_UNPACK_CAR (X) == scm_tc16_keyword))
#define SCM_KEYWORDSYM(X) (SCM_CDR(X))
\f
extern void scm_init_keywords (void);
#endif /* KEYWORDSH */
+
+/*
+ Local Variables:
+ c-file-style: "gnu"
+ End:
+*/