From c95a7febb02e7599333b753f4deb45612997aecf Mon Sep 17 00:00:00 2001
From: Joe Groff <arcata@gmail.com>
Date: Tue, 8 Sep 2009 21:58:11 -0500
Subject: [PATCH] update cpu.ppc for argument order changes

---
 basis/cpu/ppc/ppc.factor | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/basis/cpu/ppc/ppc.factor b/basis/cpu/ppc/ppc.factor
index cdb1fbd21a..8c85ef66ec 100644
--- a/basis/cpu/ppc/ppc.factor
+++ b/basis/cpu/ppc/ppc.factor
@@ -555,9 +555,13 @@ M:: ppc %compare-float-unordered ( dst src1 src2 cc temp -- )
         { cc/= [ label BNE ] }
     } case ;
 
-M: ppc %compare-branch [ (%compare) ] 2dip %branch ;
+M:: ppc %compare-branch ( label src1 src2 cc -- )
+    src1 src2 (%compare) %branch
+    label cc %branch ;
 
-M: ppc %compare-imm-branch [ (%compare-imm) ] 2dip %branch ;
+M:: ppc %compare-imm-branch ( label src1 src2 cc -- )
+    src1 src2 (%compare) %branch
+    label cc %branch ;
 
 :: (%branch) ( label branch1 branch2 -- )
     label branch1 execute( label -- )