X-Git-Url: http://git.hcoop.net/bpt/guile.git/blobdiff_plain/413cb56ff4080de5676a2756b670bcdd81af3334..15237f3002a749715747e30c9c7952da5edbe7c5:/libguile/keywords.h

diff --git a/libguile/keywords.h b/libguile/keywords.h
index cd6020971..0eda0e8ac 100644
--- a/libguile/keywords.h
+++ b/libguile/keywords.h
@@ -52,7 +52,7 @@
 
 
 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))
 
 
@@ -65,3 +65,9 @@ extern SCM scm_keyword_dash_symbol (SCM keyword);
 extern void scm_init_keywords (void);
 
 #endif  /* KEYWORDSH */
+
+/*
+  Local Variables:
+  c-file-style: "gnu"
+  End:
+*/