diff options
Diffstat (limited to 'libguile/symbols.c')
-rw-r--r-- | libguile/symbols.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/symbols.c b/libguile/symbols.c index 17d08981c..074573100 100644 --- a/libguile/symbols.c +++ b/libguile/symbols.c @@ -294,7 +294,7 @@ scm_intern_obarray_soft (const char *name,scm_sizet len,SCM obarray,unsigned int SCM_SETCHARS (lsym, duplicate_string (name, len)); SCM_SET_SYMBOL_HASH (lsym, raw_hash); SCM_SET_PROP_SLOTS (lsym, scm_cons (SCM_BOOL_F, SCM_EOL)); - SCM_SETLENGTH (lsym, (long) len, scm_tc7_symbol); + SCM_SET_SYMBOL_LENGTH (lsym, (long) len); if (SCM_FALSEP (obarray)) { @@ -369,7 +369,7 @@ scm_sysintern0_no_module_lookup (const char *name) SCM_SETCHARS (lsym, name); SCM_SET_SYMBOL_HASH (lsym, raw_hash); SCM_SET_PROP_SLOTS (lsym, scm_cons (SCM_BOOL_F, SCM_EOL)); - SCM_SETLENGTH (lsym, (long) len, scm_tc7_symbol); + SCM_SET_SYMBOL_LENGTH (lsym, (long) len); lsym = scm_cons (lsym, SCM_UNDEFINED); SCM_VELTS (scm_symhash)[hash] = scm_cons (lsym, SCM_VELTS (scm_symhash)[hash]); |