hash-sets,hashtables: make it so the array backing the hash is non-empty

[factor.git] / core / hashtables / hashtables.factor

diff --git a/core/hashtables/hashtables.factor b/core/hashtables/hashtables.factor
index ee14103cb835952af7b5d5b4cc7aaaac3596c287..6e2903d8ee295581d1fcb430494c880d1cc5aeb3 100644 (file)
--- a/core/hashtables/hashtables.factor
+++ b/core/hashtables/hashtables.factor
@@ -4,10 +4,16 @@ USING: accessors arrays assocs kernel kernel.private math
 math.private sequences sequences.private slots.private vectors ;
 IN: hashtables
 
+! Required because the hashtable definition references tombstone.
+<PRIVATE PRIVATE>
+
 TUPLE: hashtable
     { count array-capacity }
     { deleted array-capacity }
-    { array array } ;
+    { array array initial: {
+          T{ tombstone } T{ tombstone } T{ tombstone } T{ tombstone }
+      }
+    } ;
 
 <PRIVATE