 
 : prune ( seq -- newseq )
     [ length <hashtable> ]
-    [ length <vector>    ]
-    [                    ] tri
+    [ length <vector> ]
+    [ ] tri
     [ >r 2dup r> (prune) ] each nip ;
 
 : all-unique? ( seq -- ? )
-    [ length       ]
+    [ length ]
     [ prune length ] bi = ;
 
 INSTANCE: hashtable assoc

    [ hash-array array-capacity ] bi > ;

: hash-stale? ( hash -- ? )
    [ hash-deleted 10 fixnum*fast ]
    [ hash-count                  ] bi fixnum> ;

: grow-hash ( hash -- )
    [ dup hash-array swap assoc-size 1+ ] keep

        ] if
    ] if ; inline

: find-pair ( array quot -- key value ? )
    0 rot (find-pair) ; inline

: (rehash) ( hash array -- )
    [ swap pick (set-hash) drop f ] find-pair 2drop 2drop ;
