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

Devolve variable snarfers

Browse source 
* libguile/snarf.h:
* libguile/variable.h (SCM_VARIABLE, SCM_GLOBAL_VARIABLE):
  (SCM_VARIABLE_INIT, SCM_GLOBAL_VARIABLE_INIT): Move here.
This commit is contained in:
Andy Wingo 2018-06-20 09:26:26 +02:00
parent af32bf8ff1
commit 5ee73e7def
2 changed files with 21 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

16
libguile/snarf.h
View file

@ -85,22 +85,6 @@ DOCSTRING ^^ }
# endif
#endif
#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);)
#define SCM_GLOBAL_VARIABLE(c_name, scheme_name) \
SCM_SNARF_HERE(SCM c_name) \
SCM_SNARF_INIT(c_name = scm_c_define (scheme_name, SCM_BOOL_F);)
#define SCM_VARIABLE_INIT(c_name, scheme_name, init_val) \
SCM_SNARF_HERE(static SCM c_name) \
SCM_SNARF_INIT(c_name = scm_c_define (scheme_name, init_val);)
#define SCM_GLOBAL_VARIABLE_INIT(c_name, scheme_name, init_val) \
SCM_SNARF_HERE(SCM c_name) \
SCM_SNARF_INIT(c_name = scm_c_define (scheme_name, init_val);)
#define SCM_MUTEX(c_name) \
SCM_SNARF_HERE(static scm_t_mutex c_name) \
SCM_SNARF_INIT(scm_i_plugin_mutex_init (&c_name, &scm_i_plugin_mutex))