Suppress CR in quiet mode, patch by Derek Fawcus.

[pforth] / fth / t_floats.fth

diff --git a/fth/t_floats.fth b/fth/t_floats.fth
index c726386..03d9ba1 100644 (file)
--- a/fth/t_floats.fth
+++ b/fth/t_floats.fth
@@ -41,21 +41,21 @@ T{ 500.0 510.0 -0.002 f~ }T{  false }T
        fover (f.) >float fswap f~\r
        AND\r
 ;\r
        fover (f.) >float fswap f~\r
        AND\r
 ;\r

-: T_FS. ( -- ok? ) ( r -f- )\r
+: T_FS. ( -- ok? ) ( r ftol -f- )\r

        fover (fs.) >float fswap f~\r
        AND\r
 ;\r
        fover (fs.) >float fswap f~\r
        AND\r
 ;\r

-: T_FE. ( -- ok? ) ( r -f- )\r
+: T_FE. ( -- ok? ) ( r ftol -f- )\r

        fover (fe.) >float fswap f~\r
        AND\r
 ;\r
 \r
        fover (fe.) >float fswap f~\r
        AND\r
 ;\r
 \r

-: T_FG. ( -- ok? ) ( r -f- )\r
+: T_FG. ( -- ok? ) ( r ftol -f- )\r

        fover (f.) >float fswap f~\r
        AND\r
 ;\r
 \r
        fover (f.) >float fswap f~\r
        AND\r
 ;\r
 \r

-: T_F>D ( -- ok? ) ( r -f- )\r
+: T_F>D ( -- ok? ) ( r ftol -f- )\r

        fover f>d d>f fswap f~\r
 ;\r
 \r
        fover f>d d>f fswap f~\r
 ;\r
 \r


@@ -75,7 +75,7 @@ T{ 2345 S>F  79 S>F  F/  -0.0001 T_F.  }T{  true  }T
 T{ 511 S>F  -294 S>F  F/  -0.0001 T_F.  }T{  true  }T\r
 \r
 : T.SERIES { N matchCFA | flag -- ok? } (  fstart fmult -f- )\r
 T{ 511 S>F  -294 S>F  F/  -0.0001 T_F.  }T{  true  }T\r
 \r
 : T.SERIES { N matchCFA | flag -- ok? } (  fstart fmult -f- )\r

-       fswap  ( -- fmust fstart )\r
+       fswap  ( -- fmult fstart )\r

        true -> flag\r
        N 0\r
        ?DO\r
        true -> flag\r
        N 0\r
        ?DO\r