Rehash weak hash tables less frequently.

* libguile/hashtab.c (weak_bucket_assoc): Call `scm_i_rehash' only when
  REMAINING is below `SCM_HASHTABLE_LOWER (table)'.

diff --git a/libguile/hashtab.c b/libguile/hashtab.c
index d5f39cb..b7cc72b 100644 (file)
--- a/libguile/hashtab.c
+++ b/libguile/hashtab.c
@@ -222,7 +222,8 @@ weak_bucket_assoc (SCM table, SCM buckets, size_t bucket_index,
       remaining = SCM_HASHTABLE_N_ITEMS (table) - args.removed_items;
       SCM_SET_HASHTABLE_N_ITEMS (table, remaining);
 
-      scm_i_rehash (table, hash_fn, closure, "weak_bucket_assoc");
+      if (remaining < SCM_HASHTABLE_LOWER (table))
+       scm_i_rehash (table, hash_fn, closure, "weak_bucket_assoc");
     }
 
   return result;