Change "3dup drop" to "2over".

[factor.git] / core / sets / sets.factor

diff --git a/core/sets/sets.factor b/core/sets/sets.factor
index 54a286041633fe5ef35a24d3b50b4eac832b2a82..93d880c64262e274eb61984b6898c8d4f3e51a1d 100644 (file)
--- a/core/sets/sets.factor
+++ b/core/sets/sets.factor
@@ -91,7 +91,7 @@ M: set all-unique? drop t ;
 <PRIVATE
 
 : (pruned) ( elt hash vec -- )
-    3dup drop in? [ 3drop ] [
+    2over in? [ 3drop ] [
         [ drop adjoin ] [ nip push ] 3bi
     ] if ; inline