*** empty log message ***

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

diff --git a/libguile/keywords.h b/libguile/keywords.h
index 3bac1bb..ac35f29 100644 (file)
--- a/libguile/keywords.h
+++ b/libguile/keywords.h
@@ -2,7 +2,7 @@
 
 #ifndef KEYWORDSH
 #define KEYWORDSH
-/*     Copyright (C) 1995,1996,1999 Free Software Foundation, Inc.
+/*     Copyright (C) 1995,1996,1999, 2000 Free Software Foundation, Inc.
  * 
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
@@ -51,9 +51,10 @@
 
 \f
 
-extern int scm_tc16_keyword;
-#define SCM_KEYWORDP(X)                (SCM_NIMP(X) && (SCM_CAR(X) == scm_tc16_keyword))
-#define SCM_KEYWORDSYM(X)      (SCM_CDR(X))
+extern scm_t_bits scm_tc16_keyword;
+
+#define SCM_KEYWORDP(X)                (!SCM_IMP (X) && (SCM_CELL_TYPE (X) == scm_tc16_keyword))
+#define SCM_KEYWORDSYM(X)      (SCM_CELL_OBJECT_1 (X))
 
 \f
 
@@ -65,3 +66,9 @@ extern SCM scm_keyword_dash_symbol (SCM keyword);
 extern void scm_init_keywords (void);
 
 #endif  /* KEYWORDSH */
+
+/*
+  Local Variables:
+  c-file-style: "gnu"
+  End:
+*/