guile/guile-core/libguile hash.c

[Marius Vollmer]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Marius Vollmer <address@hidden> 01/06/04 15:16:43

Modified files:
        guile-core/libguile: hash.c 

Log message:
        (scm_hasher): Use SCM_UNPACK in the case labels so that
        non-pointers are being compared.  Thanks to Alexander Klimov!

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/libguile/hash.c.diff?cvsroot=OldCVS&tr1=1.43&tr2=1.44&r1=text&r2=text

Patches:
Index: guile/guile-core/libguile/hash.c
diff -u guile/guile-core/libguile/hash.c:1.43 
guile/guile-core/libguile/hash.c:1.44
--- guile/guile-core/libguile/hash.c:1.43       Sat May 26 13:51:20 2001
+++ guile/guile-core/libguile/hash.c    Mon Jun  4 15:16:43 2001
@@ -98,17 +98,17 @@
       return (unsigned)(scm_downcase(SCM_CHAR(obj))) % n;
     switch (SCM_UNPACK (obj)) {
 #ifndef SICP
-    case SCM_EOL: 
+    case SCM_UNPACK(SCM_EOL):
       d = 256; 
       break;
 #endif
-    case SCM_BOOL_T: 
+    case SCM_UNPACK(SCM_BOOL_T):
       d = 257; 
       break;
-    case SCM_BOOL_F: 
+    case SCM_UNPACK(SCM_BOOL_F):
       d = 258; 
       break;
-    case SCM_EOF_VAL: 
+    case SCM_UNPACK(SCM_EOF_VAL):
       d = 259; 
       break;
     default: