'resize_set' no longer allocates in a loop.

* libguile/weak-set.c (resize_set): Call 'scm_gc_malloc_pointerless'
outside the loop.

1 files changed, 2 insertions, 2 deletions

diff --git a/libguile/weak-set.c b/libguile/weak-set.c
index e71af9a7d..93c429346 100644
--- a/libguile/weak-set.c
+++ b/libguile/weak-set.c
@@ -363,11 +363,11 @@ resize_set (scm_t_weak_set *set)
       if (new_size_index == set->size_index)
         return;
       new_size = hashset_size[new_size_index];
-      new_entries = scm_gc_malloc_pointerless (new_size * sizeof(scm_t_weak_entry),
-                                               "weak set");
     }
   while (!is_acceptable_size_index (set, new_size_index));
 
+  new_entries = scm_gc_malloc_pointerless (new_size * sizeof (scm_t_weak_entry),
+                                           "weak set");
   old_entries = set->entries;
   old_size = set->size;