From aaad7b6b161338065ecd02399bdfaaa05800af03 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Fri, 13 Nov 2009 07:11:26 -0600
Subject: [PATCH] compiler.tree.propagation.branches: fix recent constraints
 change

---
 basis/compiler/tree/propagation/branches/branches.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/basis/compiler/tree/propagation/branches/branches.factor b/basis/compiler/tree/propagation/branches/branches.factor
index 8d349128be..28f34cb425 100755
--- 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-->
             ]