* Some more work to get rid of SCM_LENGTH

[bpt/guile.git] / libguile / hash.c

diff --git a/libguile/hash.c b/libguile/hash.c
index 1bb4c24..baf9553 100644 (file)
--- a/libguile/hash.c
+++ b/libguile/hash.c
@@ -121,7 +121,7 @@ scm_hasher(SCM obj, unsigned long n, scm_sizet d)
     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_ROLENGTH (obj)) % n;
+      return scm_string_hash (SCM_ROUCHARS (obj), SCM_STRING_LENGTH (obj)) % n;
     case scm_tc7_symbol:
       return SCM_SYMBOL_HASH (obj) % n;
     case scm_tc7_wvect: