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

2013-03-11 10:21:02 -07:00 · 2013-03-11 10:21:02 -07:00 · 734a987e24
parent 15d720458a
commit 734a987e24
1 changed files with 1 additions and 8 deletions
--- 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? ;