Changes to compiler.tree.propagation.inlining

diff --git a/basis/compiler/tree/propagation/inlining/inlining.factor b/basis/compiler/tree/propagation/inlining/inlining.factor
index 26639bc0153525d5a1b46a786a2ac1cd06a07fbc..b281767e5594a3d4f0a9d5137e3aa9859c42e2ea 100644 (file)
--- a/basis/compiler/tree/propagation/inlining/inlining.factor
+++ b/basis/compiler/tree/propagation/inlining/inlining.factor
@@ -65,9 +65,10 @@ M: callable splicing-nodes splicing-body ;
     object generic method-classes 
     [| last-class new-class |
         class new-class classes-intersect? [
-            new-class class class< [
+            class new-class class<=
+            [ object f ] [
                 last-class new-class class-min
-            ] [ object f ] if
+            ] if
         ] [ last-class t ] if
     ] all? ;