Revert "hash-sets: faster M\ hash-set union."

This reverts commit bb7a1017f5.
2013-03-22 22:05:06 -07:00 · 2013-03-22 22:05:06 -07:00 · 02156a0c0c
parent 83408fedcd
commit 02156a0c0c
1 changed files with 1 additions and 2 deletions
--- a/core/hash-sets/hash-sets.factor
+++ b/core/hash-sets/hash-sets.factor
@ -136,8 +136,7 @@ INSTANCE: hash-set set

 M: hash-set intersect small/large sequence/tester filter >hash-set ;

-M: hash-set union
-    [ ?members ] [ clone ] bi* [ [ adjoin ] curry each ] keep ;
+M: hash-set union (union) >hash-set ;

 M: hash-set diff sequence/tester [ not ] compose filter >hash-set ;