compiler.tree.propagation.branches: fix recent constraints change

2009-11-13 07:11:26 -06:00 · 2009-11-13 07:11:26 -06:00 · aaad7b6b16
parent b201cc4a6f
commit aaad7b6b16
1 changed files with 2 additions and 2 deletions
--- a/basis/compiler/tree/propagation/branches/branches.factor
+++ b/basis/compiler/tree/propagation/branches/branches.factor
@ -133,7 +133,7 @@ M: #phi propagate-before ( #phi -- )
        {
            { { t f } { t } }
            [
-                first =t
+                first =f
                condition-value get =t /\
                swap f-->
            ]
@ -141,7 +141,7 @@ M: #phi propagate-before ( #phi -- )
        {
            { { t } { t f } }
            [
-                second =t
+                second =f
                condition-value get =f /\
                swap f-->
            ]