Changes to compiler.tree.propagation.inlining

2010-04-20 00:39:08 -05:00 · 2010-04-20 00:39:08 -05:00 · 19a44d65df
parent 3ed4a82475
commit 19a44d65df
1 changed files with 3 additions and 2 deletions
--- 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? ;