mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 05:50:26 +02:00
Code Activity

* snarf.h (SCM_KEYWORD, SCM_GLOBAL_KEYWORD): New macros.

Browse source
This commit is contained in:
Mikael Djurfeldt 1999-06-23 11:16:52 +00:00
parent 2eafbe52c6
commit 37b83f68b0
1 changed files with 15 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

15
libguile/snarf.h
View file

@ -84,6 +84,21 @@
%%% C_NAME = scm_permanent_object (SCM_CAR (scm_intern0 (SCHEME_NAME))) %%% C_NAME = scm_permanent_object (SCM_CAR (scm_intern0 (SCHEME_NAME)))
#endif #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 #ifndef SCM_MAGIC_SNARFER
#define SCM_VCELL(c_name, scheme_name) \ #define SCM_VCELL(c_name, scheme_name) \