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 f3bd4a500..e4add2728 100644
--- a/libguile/symbols.c
+++ b/libguile/symbols.c
@@ -262,13 +262,13 @@ scm_intern_obarray_soft (const char *name,scm_sizet len,SCM obarray,unsigned int
scm_sizet i;
SCM a = SCM_CAR (lsym);
SCM z = SCM_CAR (a);
- unsigned char *tmp = SCM_SYMBOL_UCHARS (z);
+ char *tmp = SCM_SYMBOL_CHARS (z);
if (SCM_SYMBOL_HASH (z) != raw_hash)
goto trynext;
if (SCM_SYMBOL_LENGTH (z) != len)
goto trynext;
for (i = len; i--;)
- if (((unsigned char *) name)[i] != tmp[i])
+ if (name[i] != tmp[i])
goto trynext;
{
SCM_REALLOW_INTS;