diff options
author | Jim Blandy <jimb@red-bean.com> | 1996-08-30 03:36:29 +0000 |
---|---|---|
committer | Jim Blandy <jimb@red-bean.com> | 1996-08-30 03:36:29 +0000 |
commit | 566011b96d11e20aa47de2f9b74102d95797f362 (patch) | |
tree | 48f6ea998aa8ef28f89775f4a65482829d2fb6c9 | |
parent | 866679103baccd57cc48d66fbe90f0813f5345db (diff) | |
download | guile-566011b96d11e20aa47de2f9b74102d95797f362.tar.gz |
* symbols.c (scm_strhash): scm_downcase is now a function, not an
array; use it appropriately. Since GCC is quite happy to
subscript functions, it never warned us about this; we should use
-Wpointer-arith in the future. I guess we never tested
case-insensitivity.
-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; } } |