sets: inline small/large.

2013-03-26 15:49:37 -07:00 · 2013-03-26 15:49:37 -07:00 · 28b194d5fc
parent 92c0faa918
commit 28b194d5fc
1 changed files with 1 additions and 1 deletions
--- 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