summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJim Blandy <jimb@red-bean.com>1996-08-30 03:36:29 +0000
committerJim Blandy <jimb@red-bean.com>1996-08-30 03:36:29 +0000
commit566011b96d11e20aa47de2f9b74102d95797f362 (patch)
tree48f6ea998aa8ef28f89775f4a65482829d2fb6c9
parent866679103baccd57cc48d66fbe90f0813f5345db (diff)
downloadguile-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.c4
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;
}
}