Parcourir la source

fixed: call to atan changed into call to _atn

ceriel il y a 36 ans
Parent
commit
92ee34c7df
1 fichiers modifiés avec 1 ajouts et 1 suppressions
  1. 1 1
      lang/basic/lib/atn.c

+ 1 - 1
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;