diff options
| author | Keisuke Nishida <kxn30@po.cwru.edu> | 2001-03-16 05:11:34 +0000 |
|---|---|---|
| committer | Keisuke Nishida <kxn30@po.cwru.edu> | 2001-03-16 05:11:34 +0000 |
| commit | a9205f0774ca610a10c7e3d04af53b8270b12db6 (patch) | |
| tree | c3549057c419c69528d5d37c15d0d634c6083a57 /libguile/snarf.h | |
| parent | 6d583887bb271c1c2f45bd95f00fb800dc12b47f (diff) | |
| download | guile-a9205f0774ca610a10c7e3d04af53b8270b12db6.tar.gz | |
* snarf.h (SCM_CONST_LONG): Deprecated.
* tag.c (CONST_INUM): New macro. Use it to define scm_utag_*.
Diffstat (limited to 'libguile/snarf.h')
| -rw-r--r-- | libguile/snarf.h | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/libguile/snarf.h b/libguile/snarf.h index 436454427..d6bcaa2be 100644 --- a/libguile/snarf.h +++ b/libguile/snarf.h @@ -183,9 +183,13 @@ 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 #undef SCM_ASSERT #define SCM_ASSERT(_cond, _arg, _pos, _subr) *&*&*&*SCM_ARG_BETTER_BE_IN_POSITION(_arg,_pos,__LINE__) |