sets: inline small/large.

diff --git a/core/sets/sets.factor b/core/sets/sets.factor
index dd2013d78704bfd8c00e1b9a43fb4344920db307..3896313de08ac6b8cdcededeec3a5dc506e6bcfa 100644 (file)
--- 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