summaryrefslogtreecommitdiff
path: root/libguile/hashtab.c
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2005-01-24 23:41:14 +0000
committerMarius Vollmer <mvo@zagadka.de>2005-01-24 23:41:14 +0000
commit76da80e7881947ebcdb647e5ce4be029fece29f2 (patch)
tree9a56249fecf0002eefc25c6a0bfeb53a2b277d7f /libguile/hashtab.c
parenta54a94b39707f47a1f30533bcf7664094d65d073 (diff)
downloadguile-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.c23
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;