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

(obarray_enter, obarray_replace): Call SCM_HASHTABLE_INCREMENT when

Browse source 
adding a new entry.
This commit is contained in:
Marius Vollmer 2005-01-20 15:57:50 +00:00
parent 88f59e537d
commit 6fccb8805c
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/environments.c
View file

@ -511,6 +511,7 @@ obarray_enter (SCM obarray, SCM symbol, SCM data)
SCM entry = scm_cons (symbol, data);
SCM slot = scm_cons (entry, SCM_HASHTABLE_BUCKET (obarray, hash));
SCM_SET_HASHTABLE_BUCKET (obarray, hash, slot);
SCM_HASHTABLE_INCREMENT (obarray);
if (SCM_HASHTABLE_N_ITEMS (obarray) > SCM_HASHTABLE_UPPER (obarray))
scm_i_rehash (obarray, scm_i_hash_symbol, 0, "obarray_enter");
@ -544,6 +545,7 @@ obarray_replace (SCM obarray, SCM symbol, SCM data)
slot = scm_cons (new_entry, SCM_HASHTABLE_BUCKET (obarray, hash));
SCM_SET_HASHTABLE_BUCKET (obarray, hash, slot);
SCM_HASHTABLE_INCREMENT (obarray);
if (SCM_HASHTABLE_N_ITEMS (obarray) > SCM_HASHTABLE_UPPER (obarray))
scm_i_rehash (obarray, scm_i_hash_symbol, 0, "obarray_replace");