From 28b194d5fc488183e37669c3339fec4d9137f62f Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Tue, 26 Mar 2013 15:49:37 -0700
Subject: [PATCH] sets: inline small/large.

---
 core/sets/sets.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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