From 566011b96d11e20aa47de2f9b74102d95797f362 Mon Sep 17 00:00:00 2001
From: Jim Blandy <jimb@red-bean.com>
Date: Fri, 30 Aug 1996 03:36:29 +0000
Subject: [PATCH] * 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.

---
 libguile/symbols.c | 4 ++--
 1 file 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;
     }
 }