diff --git a/core/sets/sets.factor b/core/sets/sets.factor index dd2013d787..3896313de0 100644 --- a/core/sets/sets.factor +++ b/core/sets/sets.factor @@ -67,7 +67,7 @@ M: set union [ (union) ] keep set-like ; [ members ] [ tester ] bi* ; inline : small/large ( set1 set2 -- set1' set2' ) - 2dup [ cardinality ] bi@ > [ swap ] when ; + 2dup [ cardinality ] bi@ > [ swap ] when ; inline : (intersect) ( set1 set2 -- seq ) small/large sequence/tester filter ; inline