fixed: call to atan changed into call to _atn

diff --git a/lang/basic/lib/atn.c b/lang/basic/lib/atn.c
index ca1683e..0a6cce2 100644 (file)
--- a/lang/basic/lib/atn.c
+++ b/lang/basic/lib/atn.c
@@ -92,7 +92,7 @@ _atn(x)
        while (x > pr->X) pr++;
        if (pr != prec) {
                x = pr->arctan +
-                       atan(pr->one_o_x - pr->one_o_xsq_p_1/(pr->one_o_x + x));
+                       _atn(pr->one_o_x - pr->one_o_xsq_p_1/(pr->one_o_x + x));
        }
        else {
                double xsq = x*x;