From 7b1eae1d378f7bfb2f81fc45d4daea7cd541e556 Mon Sep 17 00:00:00 2001 From: ceriel Date: Mon, 25 Jul 1988 11:41:19 +0000 Subject: [PATCH] fixed: call to atan changed into call to _atn --- lang/basic/lib/atn.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lang/basic/lib/atn.c b/lang/basic/lib/atn.c index ca1683e45..0a6cce29a 100644 --- 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; -- 2.34.1