         ] if
     ] if ; inline
 
-: find-pair ( array quot -- key value ? ) 0 rot (find-pair) ; 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 ;

    [ 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


: prune ( seq -- newseq )
    [ length <hashtable> ]
    [ length <vector> ]
    [ ] tri
    [ >r 2dup r> (prune) ] each nip ;

: all-unique? ( seq -- ? )
    [ length ]
    [ prune length ] bi = ;

INSTANCE: hashtable assoc
