diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1999-06-23 11:16:52 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1999-06-23 11:16:52 +0000 |
commit | 37b83f68b0ba2b1707f76c37732e4ccecfb3c8ee (patch) | |
tree | 7bcb304181ef3914b89149794237b10d0e244496 | |
parent | 2eafbe52c6976dfc750b668da591327d41a9ed61 (diff) | |
download | guile-37b83f68b0ba2b1707f76c37732e4ccecfb3c8ee.tar.gz |
* snarf.h (SCM_KEYWORD, SCM_GLOBAL_KEYWORD): New macros.
-rw-r--r-- | libguile/snarf.h | 15 |
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) \ |