diff options
-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 78c819399..6d9a1c8cc 100644 --- a/libguile/symbols.c +++ b/libguile/symbols.c @@ -76,7 +76,7 @@ scm_strhash (str, len, n) scm_sizet i = 5; unsigned long h = 264 % n; while (i--) - h = ((h << 8) + ((unsigned) (scm_downcase[str[h % len]]))) % n; + h = ((h << 8) + ((unsigned) (scm_downcase (str[h % len])))) % n; return h; } else @@ -84,7 +84,7 @@ scm_strhash (str, len, n) scm_sizet i = len; unsigned long h = 0; while (i) - h = ((h << 8) + ((unsigned) (scm_downcase[str[--i]]))) % n; + h = ((h << 8) + ((unsigned) (scm_downcase (str[--i])))) % n; return h; } } |