X-Git-Url: http://git.subgeniuskitty.com/pforth/.git/blobdiff_plain/bb6b2dcdd9acffabfd373c4c3f6b64a9cc43f335..4f2379351847bdadd3fa6ff698dc381c6bee5bea:/fth/t_floats.fth

diff --git a/fth/t_floats.fth b/fth/t_floats.fth
index c726386..03d9ba1 100644
--- 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~
 	AND
 ;
-: T_FS. ( -- ok? ) ( r -f- )
+: T_FS. ( -- ok? ) ( r ftol -f- )
 	fover (fs.) >float fswap f~
 	AND
 ;
-: T_FE. ( -- ok? ) ( r -f- )
+: T_FE. ( -- ok? ) ( r ftol -f- )
 	fover (fe.) >float fswap f~
 	AND
 ;
 
-: T_FG. ( -- ok? ) ( r -f- )
+: T_FG. ( -- ok? ) ( r ftol -f- )
 	fover (f.) >float fswap f~
 	AND
 ;
 
-: T_F>D ( -- ok? ) ( r -f- )
+: T_F>D ( -- ok? ) ( r ftol -f- )
 	fover f>d d>f fswap f~
 ;
 
@@ -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
 
 : T.SERIES { N matchCFA | flag -- ok? } (  fstart fmult -f- )
-	fswap  ( -- fmust fstart )
+	fswap  ( -- fmult fstart )
 	true -> flag
 	N 0
 	?DO