mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

(scm_i_rehash): Remove elements from old bucket vector so that no two

Browse source 
weak alist vectors share a spine.
This commit is contained in:
Marius Vollmer 2005-02-25 21:22:44 +00:00
parent 838c4126f5
commit c2f21af5f8
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
libguile/hashtab.c
View file

@ -166,9 +166,8 @@ scm_i_rehash (SCM table,
We need to cope with this while rehashing its elements. We do
this by first installing the new, empty bucket vector and turning
the old bucket vector into a regularily scanned weak vector.
Then we iterate over the elements in the old bucket vector.
While iterating, the elements in LS will not disappear since they
are protected.
Then we remove the elements from the old bucket vector and insert
them into the new one.
*/
SCM_SET_HASHTABLE_VECTOR (table, new_buckets);
@ -182,6 +181,8 @@ scm_i_rehash (SCM table,
SCM ls, cell, handle;
ls = SCM_SIMPLE_VECTOR_REF (buckets, i);
SCM_SIMPLE_VECTOR_SET (buckets, i, SCM_EOL);
while (scm_is_pair (ls))
{
unsigned long h;