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

2013-03-22 21:52:56 -07:00 · 2013-03-22 21:52:56 -07:00 · 83408fedcd
parent bbe5f32d5f
commit 83408fedcd
1 changed files with 2 additions and 1 deletions
--- a/core/hash-sets/hash-sets.factor
+++ b/core/hash-sets/hash-sets.factor
@ -136,7 +136,8 @@ INSTANCE: hash-set set

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

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

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