hash-sets: use ?adjoin instead of (all-unique?).

diff --git a/core/hash-sets/hash-sets.factor b/core/hash-sets/hash-sets.factor
index 3bc5eb88b42531242b1914f337693155be6a79a2..ef873126b0c33bfc91e2794e1e35c2af651034f0 100644 (file)
--- a/core/hash-sets/hash-sets.factor
+++ b/core/hash-sets/hash-sets.factor
@@ -144,12 +144,5 @@ M: sequence fast-set >hash-set ;
 M: sequence duplicates
     dup length <hash-set> [ ?adjoin not ] curry filter ;
 
-<PRIVATE
-
-: (all-unique?) ( elt hash -- ? )
-    2dup in? [ 2drop f ] [ adjoin t ] if ; inline
-
-PRIVATE>
-
 M: sequence all-unique?
-    dup length <hash-set> [ (all-unique?) ] curry all? ;
+    dup length <hash-set> [ ?adjoin ] curry all? ;