cpu.ppc: fix %single>double-float and %double>single-float

diff --git a/basis/cpu/ppc/ppc.factor b/basis/cpu/ppc/ppc.factor
index 8f2071a0dc5cb9e6933856dbe3447dae0bf98953..9c829bc390023b8e88ddcb01c734f8f837107b28 100644 (file)
--- a/basis/cpu/ppc/ppc.factor
+++ b/basis/cpu/ppc/ppc.factor
@@ -299,9 +299,9 @@ M:: ppc %binary-float-function ( dst src1 src2 func -- )
     dst float-function-return ;
 
 ! Internal format is always double-precision on PowerPC
-M: ppc %single>double-float 2drop ;
+M: ppc %single>double-float FMR ;
 
-M: ppc %double>single-float 2drop ;
+M: ppc %double>single-float FMR ;
 
 M: ppc %unbox-alien ( dst src -- )
     alien-offset LWZ ;