HCoop
/
bpt
/
guile.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
88f59e5
)
(obarray_enter, obarray_replace): Call SCM_HASHTABLE_INCREMENT when
author
Marius Vollmer
<mvo@zagadka.de>
Thu, 20 Jan 2005 15:57:50 +0000
(15:57 +0000)
committer
Marius Vollmer
<mvo@zagadka.de>
Thu, 20 Jan 2005 15:57:50 +0000
(15:57 +0000)
adding a new entry.
libguile/environments.c
patch
|
blob
|
blame
|
history
diff --git
a/libguile/environments.c
b/libguile/environments.c
index
9ea4c4e
..
d3ef152
100644
(file)
--- a/
libguile/environments.c
+++ b/
libguile/environments.c
@@
-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 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");
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);
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");
if (SCM_HASHTABLE_N_ITEMS (obarray) > SCM_HASHTABLE_UPPER (obarray))
scm_i_rehash (obarray, scm_i_hash_symbol, 0, "obarray_replace");