*** empty log message ***

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

diff --git a/libguile/hash.c b/libguile/hash.c
index c3255ea..3d55c69 100644 (file)
--- a/libguile/hash.c
+++ b/libguile/hash.c
@@ -140,7 +140,7 @@ scm_hasher(SCM obj, unsigned long n, scm_sizet d)
       if (d) return (scm_hasher(SCM_CAR(obj), n, d/2)+scm_hasher(SCM_CDR(obj), n, d/2)) % n;
       else return 1;
     case scm_tc7_port:
-      return ((SCM_RDNG & SCM_CAR(obj)) ? 260 : 261) % n;
+      return ((SCM_RDNG & SCM_UNPACK_CAR(obj)) ? 260 : 261) % n;
     case scm_tcs_closures: 
     case scm_tc7_contin: 
     case scm_tcs_subrs:
@@ -169,8 +169,8 @@ SCM_DEFINE (scm_hashq, "hashq", 2, 0, 0,
            "Thus two calls to hashq where the keys are eq? are not\n"
            "guaranteed to deliver the same value if the key object gets\n"
            "garbage collected in between.  This can happen, for example\n"
-           "with symbols:  (hashq 'x n) (gc) (hashq 'x n) may produce two\n" 
-           "different values, since 'x will be garbage collected.")
+           "with symbols:  (hashq 'foo n) (gc) (hashq 'foo n) may produce two\n" 
+           "different values, since 'foo will be garbage collected.")
 #define FUNC_NAME s_scm_hashq
 {
   SCM_VALIDATE_INUM_MIN (2, size, 0);
@@ -204,8 +204,8 @@ SCM_DEFINE (scm_hashv, "hashv", 2, 0, 0,
            "Thus two calls to hashv where the keys are eqv? are not\n"
            "guaranteed to deliver the same value if the key object gets\n"
            "garbage collected in between.  This can happen, for example\n"
-           "with symbols:  (hashv 'x n) (gc) (hashv 'x n) may produce two\n" 
-           "different values, since 'x will be garbage collected.")
+           "with symbols:  (hashv 'foo n) (gc) (hashv 'foo n) may produce two\n" 
+           "different values, since 'foo will be garbage collected.")
 #define FUNC_NAME s_scm_hashv
 {
   SCM_VALIDATE_INUM_MIN (2, size, 0);