2002-07-20 Han-Wen <hanwen@cs.uu.nl>

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

diff --git a/libguile/hash.c b/libguile/hash.c
index 9cb0d74..b894150 100644 (file)
--- a/libguile/hash.c
+++ b/libguile/hash.c
@@ -39,8 +39,6 @@
  * whether to permit this exception to apply to your modifications.
  * If you do not wish that, delete this exception notice.  */
 
-/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999,
-   gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */
 
 \f
 
@@ -140,7 +138,6 @@ scm_hasher(SCM obj, unsigned long n, size_t d)
        obj = scm_number_to_string (obj, SCM_MAKINUM (10));
       }
     case scm_tc7_string:
-    case scm_tc7_substring:
       return scm_string_hash (SCM_STRING_UCHARS (obj), SCM_STRING_LENGTH (obj)) % n;
     case scm_tc7_symbol:
       return SCM_SYMBOL_HASH (obj) % n;
@@ -148,7 +145,7 @@ scm_hasher(SCM obj, unsigned long n, size_t d)
     case scm_tc7_vector:
       {
        size_t len = SCM_VECTOR_LENGTH(obj);
-       SCM *data = SCM_VELTS(obj);
+       SCM const *data = SCM_VELTS(obj);
        if (len > 5)
          {
            size_t i = d/2;
@@ -274,9 +271,7 @@ SCM_DEFINE (scm_hash, "hash", 2, 0, 0,
 void
 scm_init_hash ()
 {
-#ifndef SCM_MAGIC_SNARFER
 #include "libguile/hash.x"
-#endif
 }