diff options
author | Marius Vollmer <mvo@zagadka.de> | 2001-05-15 14:57:22 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2001-05-15 14:57:22 +0000 |
commit | 86d31dfe7d0754b863863f6544c75097ef68fe8c (patch) | |
tree | 0f78f9d3ace802b80422dcedea25098cf901d05a /libguile/snarf.h | |
parent | 7c33806ae676601f902dbdc0f39c1f0828d68951 (diff) | |
download | guile-86d31dfe7d0754b863863f6544c75097ef68fe8c.tar.gz |
Merge from mvo-vcell-cleanup-1-branch.
Diffstat (limited to 'libguile/snarf.h')
-rw-r--r-- | libguile/snarf.h | 26 |
1 files changed, 21 insertions, 5 deletions
diff --git a/libguile/snarf.h b/libguile/snarf.h index 540c95947..9aef75fcc 100644 --- a/libguile/snarf.h +++ b/libguile/snarf.h @@ -172,6 +172,27 @@ SCM_SNARF_INIT(c_name = scm_permanent_object (scm_c_make_keyword (scheme_name))) SCM_SNARF_HERE(SCM c_name) \ SCM_SNARF_INIT(c_name = scm_permanent_object (scm_c_make_keyword (scheme_name))) +#define SCM_VARIABLE(c_name, scheme_name) \ +SCM_SNARF_HERE(static SCM c_name) \ +SCM_SNARF_INIT(c_name = scm_permanent_object (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_permanent_object (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_permanent_object (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_permanent_object (scm_c_define (scheme_name, init_val));) + +#if (SCM_DEBUG_DEPRECATED == 0) + +#define SCM_CONST_LONG(c_name, scheme_name,value) \ +SCM_VARIABLE_INIT(c_name, scheme_name, scm_long2num(value)) + #define SCM_VCELL(c_name, scheme_name) \ SCM_SNARF_HERE(static SCM c_name) \ SCM_SNARF_INIT(c_name = scm_permanent_object (scm_sysintern (scheme_name, SCM_BOOL_F));) @@ -188,11 +209,6 @@ SCM_SNARF_INIT(c_name = scm_permanent_object (scm_sysintern (scheme_name, init_v SCM_SNARF_HERE(SCM c_name) \ SCM_SNARF_INIT(c_name = scm_permanent_object (scm_sysintern (scheme_name, init_val));) -#if (SCM_DEBUG_DEPRECATED == 0) - -#define SCM_CONST_LONG(c_name, scheme_name,value) \ -SCM_VCELL_INIT(c_name, scheme_name, scm_long2num(value)) - #endif /* (SCM_DEBUG_DEPRECATED == 0) */ #ifdef SCM_MAGIC_SNARFER |