hash: gc issue in clearhash.

* hash.c (clearhash): Assignment of new table into hash
requires setcheck, because it's putting a new object into an
old one.

1 files changed, 1 insertions, 0 deletions

diff --git a/hash.c b/hash.c
index 1667c741..500f1a09 100644
--- a/hash.c
+++ b/hash.c
@@ -876,6 +876,7 @@ val clearhash(val hash)
   h->modulus = c_num(mod);
   h->count = 0;
   h->table = table;
+  setcheck(hash, table);
   return oldcount ? num(oldcount) : nil;
 }