mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-09 13:30:26 +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

9
libguile/keywords.h
View file

@ -26,6 +26,7 @@
#include "libguile/__scm.h" #include "libguile/__scm.h"
#include <libguile/error.h> #include <libguile/error.h>
#include <libguile/snarf.h>
@ -42,6 +43,14 @@ SCM_API SCM scm_from_utf8_keyword (const char *name);
#define SCM_VALIDATE_KEYWORD(pos, v) \ #define SCM_VALIDATE_KEYWORD(pos, v) \
SCM_MAKE_VALIDATE_MSG (pos, v, KEYWORDP, "keyword") SCM_MAKE_VALIDATE_MSG (pos, v, KEYWORDP, "keyword")
#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))
enum scm_keyword_arguments_flags enum scm_keyword_arguments_flags
{ {
SCM_ALLOW_OTHER_KEYS = (1U << 0), SCM_ALLOW_OTHER_KEYS = (1U << 0),

8
libguile/snarf.h
View file

@ -85,14 +85,6 @@ DOCSTRING ^^ }
# endif # endif
#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) \ #define SCM_VARIABLE(c_name, scheme_name) \
SCM_SNARF_HERE(static SCM c_name) \ SCM_SNARF_HERE(static SCM c_name) \
SCM_SNARF_INIT(c_name = scm_c_define (scheme_name, SCM_BOOL_F);) SCM_SNARF_INIT(c_name = scm_c_define (scheme_name, SCM_BOOL_F);)