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 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; |