     label cc %branch ;
 
 M:: ppc %compare-imm-branch ( label src1 src2 cc -- )
-    src1 src2 (%compare)
+    src1 src2 (%compare-imm)
     label cc %branch ;
 
 :: (%branch) ( label branch1 branch2 -- )

    1 src2 float-function-param
    func f %alien-invoke
    dst float-function-return ;

M:: ppc %unbox-any-c-ptr ( dst src temp -- )
    [

    label branch1 branch2 (%branch) ;

M:: ppc %compare-float-unordered-branch ( label src1 src2 cc -- )
    src1 src2 cc \ (%compare-float-unordered) (%compare-float) :> branch2 :> branch1
    label branch1 branch2 (%branch) ;

: load-from-frame ( dst n rep -- )
