From 7c39f8134bd60965c459ab034d5ced04fe69afb1 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sun, 10 Mar 2013 17:08:41 -0700
Subject: [PATCH] hash-sets: use push-unsafe from hashtables.private.

---
 core/hash-sets/hash-sets.factor | 10 ----------
 1 file changed, 10 deletions(-)

diff --git a/core/hash-sets/hash-sets.factor b/core/hash-sets/hash-sets.factor
index 1d2f0ec7d6..3bc5eb88b4 100644
--- 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 [
         [