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

2013-03-10 17:08:41 -07:00 · 2013-03-10 17:08:41 -07:00 · 7c39f8134b
parent 7f3f90eb8d
commit 7c39f8134b
1 changed files with 0 additions and 10 deletions
--- 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 [
        [