From 02156a0c0c4b4fef2b2b3a354a0c039a943e7d88 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Fri, 22 Mar 2013 22:05:06 -0700
Subject: [PATCH] Revert "hash-sets: faster M\ hash-set union."

This reverts commit bb7a1017f523a4e81b2aee041bd627b3484e65d7.
---
 core/hash-sets/hash-sets.factor | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/core/hash-sets/hash-sets.factor b/core/hash-sets/hash-sets.factor
index b01fe6fa9e..a094c015b2 100644
--- 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 ;