mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-24 12:20:20 +02:00
Code Activity

Devolve keyword-snarfing macros

Browse source 
* libguile/snarf.h:
* libguile/keywords.h (SCM_KEYWORD, SCM_GLOBAL_KEYWORD): Move here.
This commit is contained in:
Andy Wingo 2018-06-20 09:25:20 +02:00
parent 93dcc55761
commit af32bf8ff1
2 changed files with 9 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

8
libguile/snarf.h
View file

@ -85,14 +85,6 @@ DOCSTRING ^^ }
# endif
#endif
#define SCM_KEYWORD(c_name, scheme_name) \
SCM_SNARF_HERE(static SCM c_name) \
SCM_SNARF_INIT(c_name = scm_from_locale_keyword (scheme_name))
#define SCM_GLOBAL_KEYWORD(c_name, scheme_name) \
SCM_SNARF_HERE(SCM c_name) \
SCM_SNARF_INIT(c_name = scm_from_locale_keyword (scheme_name))
#define SCM_VARIABLE(c_name, scheme_name) \
SCM_SNARF_HERE(static SCM c_name) \
SCM_SNARF_INIT(c_name = scm_c_define (scheme_name, SCM_BOOL_F);)