Hi,

As "atan" can be calculate for each float wouldn't be better to   
define it by

: atan ( x -- y )
     >float fatan ; inline

instead of

: atan ( x -- y )
     dup [-1,1]? [ >float fatan ] [ i* atanh i* ] if ; inline

thanks



-------------------------------------------------------------------------
This SF.net email is sponsored by: Microsoft
Defy all challenges. Microsoft(R) Visual Studio 2005.
http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/
_______________________________________________
Factor-talk mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/factor-talk

Reply via email to