summaryrefslogtreecommitdiff
path: root/libguile/symbols.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/symbols.c')
-rw-r--r--libguile/symbols.c4
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]);