summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>1999-06-23 11:16:52 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>1999-06-23 11:16:52 +0000
commit37b83f68b0ba2b1707f76c37732e4ccecfb3c8ee (patch)
tree7bcb304181ef3914b89149794237b10d0e244496
parent2eafbe52c6976dfc750b668da591327d41a9ed61 (diff)
downloadguile-37b83f68b0ba2b1707f76c37732e4ccecfb3c8ee.tar.gz
* snarf.h (SCM_KEYWORD, SCM_GLOBAL_KEYWORD): New macros.
-rw-r--r--libguile/snarf.h15
1 files changed, 15 insertions, 0 deletions
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) \