Merge branch 'master' of git://factorcode.org/git/factor into ppc-float-compare

diff --cc basis/cpu/ppc/ppc.factor
index b3d39aaa78344d3867ba3bb7895cb1a2c30cef00,da920b6322ad4f60705ef85245d86176e16b931b..e9a13071a304f4fc080541edf7077df86bbd9771
--- 1/basis/cpu/ppc/ppc.factor
--- 2/basis/cpu/ppc/ppc.factor
+++ b/basis/cpu/ppc/ppc.factor
@@@ -501,14 -500,14 +501,14 @@@ M: ppc %epilogue ( n -- 
      dst \ t %load-reference
      "end" get resolve-label ; inline
  
- : %boolean ( dst temp cc -- )
+ :: %boolean ( dst temp cc -- )
      cc negate-cc order-cc {
 -        { cc<  [ dst temp \ BLT (%boolean) ] }
 -        { cc<= [ dst temp \ BLE (%boolean) ] }
 -        { cc>  [ dst temp \ BGT (%boolean) ] }
 -        { cc>= [ dst temp \ BGE (%boolean) ] }
 -        { cc=  [ dst temp \ BEQ (%boolean) ] }
 -        { cc/= [ dst temp \ BNE (%boolean) ] }
 +        { cc<  [ dst temp \ BLT f (%boolean) ] }
 +        { cc<= [ dst temp \ BLE f (%boolean) ] }
 +        { cc>  [ dst temp \ BGT f (%boolean) ] }
 +        { cc>= [ dst temp \ BGE f (%boolean) ] }
 +        { cc=  [ dst temp \ BEQ f (%boolean) ] }
 +        { cc/= [ dst temp \ BNE f (%boolean) ] }
      } case ;
  
  : (%compare) ( src1 src2 -- ) [ 0 ] dip CMP ; inline