diff options
Diffstat (limited to 'libguile/hash.c')
-rw-r--r-- | libguile/hash.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/libguile/hash.c b/libguile/hash.c index 78ea1ab0f..b26de9c04 100644 --- a/libguile/hash.c +++ b/libguile/hash.c @@ -119,9 +119,8 @@ scm_hasher(SCM obj, unsigned long n, scm_sizet d) obj = scm_number_to_string(obj, SCM_MAKINUM(10)); } case scm_tc7_string: - return scm_string_hash (SCM_STRING_UCHARS (obj), SCM_STRING_LENGTH (obj)) % n; case scm_tc7_substring: - return scm_string_hash (SCM_ROUCHARS (obj), SCM_STRING_LENGTH (obj)) % n; + return scm_string_hash (SCM_STRING_UCHARS (obj), SCM_STRING_LENGTH (obj)) % n; case scm_tc7_symbol: return SCM_SYMBOL_HASH (obj) % n; case scm_tc7_wvect: |