From 37b83f68b0ba2b1707f76c37732e4ccecfb3c8ee Mon Sep 17 00:00:00 2001
From: Mikael Djurfeldt <djurfeldt@nada.kth.se>
Date: Wed, 23 Jun 1999 11:16:52 +0000
Subject: [PATCH] * snarf.h (SCM_KEYWORD, SCM_GLOBAL_KEYWORD): New macros.

---
 libguile/snarf.h | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/libguile/snarf.h b/libguile/snarf.h
index ce6a088e9..3bd77e102 100644
--- a/libguile/snarf.h
+++ b/libguile/snarf.h
@@ -84,6 +84,21 @@
 %%%	C_NAME = scm_permanent_object (SCM_CAR (scm_intern0 (SCHEME_NAME)))
 #endif
 
+#ifndef SCM_MAGIC_SNARFER
+#define SCM_KEYWORD(c_name, scheme_name) \
+	static SCM c_name = SCM_BOOL_F
+#else
+#define SCM_KEYWORD(C_NAME, SCHEME_NAME) \
+%%%	C_NAME = scm_permanent_object (scm_c_make_keyword (SCHEME_NAME))
+#endif
+
+#ifndef SCM_MAGIC_SNARFER
+#define SCM_GLOBAL_KEYWORD(c_name, scheme_name) \
+	SCM c_name = SCM_BOOL_F
+#else
+#define SCM_GLOBAL_KEYWORD(C_NAME, SCHEME_NAME) \
+%%%	C_NAME = scm_permanent_object (scm_makekey (SCHEME_NAME))
+#endif
 
 #ifndef SCM_MAGIC_SNARFER
 #define SCM_VCELL(c_name, scheme_name) \