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

factor · Mar 11, 2013 · 64489d9 · 64489d9
1 parent ca4cb44
commit 64489d9
Showing 1 changed file with 0 additions and 10 deletions.
diff --git 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 [
         [