diff options
author | Marius Vollmer <mvo@zagadka.de> | 2005-01-24 23:41:14 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2005-01-24 23:41:14 +0000 |
commit | 76da80e7881947ebcdb647e5ce4be029fece29f2 (patch) | |
tree | 9a56249fecf0002eefc25c6a0bfeb53a2b277d7f /libguile/hashtab.c | |
parent | a54a94b39707f47a1f30533bcf7664094d65d073 (diff) | |
download | guile-76da80e7881947ebcdb647e5ce4be029fece29f2.tar.gz |
Reverted changed from 2005/01/24 19:14:54, which was a commit to the
wrong branch. Sorry.
Diffstat (limited to 'libguile/hashtab.c')
-rw-r--r-- | libguile/hashtab.c | 23 |
1 files changed, 1 insertions, 22 deletions
diff --git a/libguile/hashtab.c b/libguile/hashtab.c index a1d6bb48f..453a6742b 100644 --- a/libguile/hashtab.c +++ b/libguile/hashtab.c @@ -30,27 +30,6 @@ #include "libguile/hashtab.h" -static void -loop (void) -{ - int loop = 1; - printf ("looping %d\n", getpid ()); - while (loop) - ; -} - -void -scm_i_hashtable_decrement (SCM h) -{ - scm_t_hashtable *t = SCM_HASHTABLE (h); - if (t->n_items == 0) - { - printf ("hashtab underflow\n"); - loop (); - } - t->n_items--; -} - /* NOTES * * 1. The current hash table implementation uses weak alist vectors @@ -166,7 +145,7 @@ scm_i_rehash (SCM table, SCM_HASHTABLE (table)->closure = closure; } SCM_HASHTABLE (table)->size_index = i; - + new_size = hashtable_size[i]; if (i <= SCM_HASHTABLE (table)->min_size_index) SCM_HASHTABLE (table)->lower = 0; |