hash-sets: use push-unsafe from hashtables.private.

diff --git a/core/hash-sets/hash-sets.factor b/core/hash-sets/hash-sets.factor
index 1d2f0ec7d642f545682a5bc8cd93e9fa5e8408de..3bc5eb88b42531242b1914f337693155be6a79a2 100644 (file)
--- a/core/hash-sets/hash-sets.factor
+++ b/core/hash-sets/hash-sets.factor
@@ -109,16 +109,6 @@ M: hash-set cardinality
 M: hash-set adjoin ( key hash-set -- )
     dup ?grow-hash (adjoin) ;
 
-<PRIVATE
-
-: push-unsafe ( elt seq -- )
-    [ length ] keep
-    [ underlying>> set-array-nth ]
-    [ [ 1 fixnum+fast { array-capacity } declare ] dip length<< ]
-    2bi ; inline
-
-PRIVATE>
-
 M: hash-set members
     [ array>> [ length ] keep ] [ cardinality <vector> ] bi [
         [