FIX: Let TANGENT 90 return an infinity value instead of throwing over…

…flow error
Oldes · Jun 24, 2018 · f2d3cda · f2d3cda
1 parent d7fd2ec
commit f2d3cda
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/src/core/n-math.c b/src/core/n-math.c
@@ -136,7 +136,14 @@ enum {SINE, COSINE, TANGENT};
 ***********************************************************************/
 {
 	REBDEC dval = Trig_Value(ds, TANGENT);
-	if (Eq_Decimal(fabs(dval), pi1 / 2.0)) Trap0(RE_OVERFLOW);
+	if (Eq_Decimal(fabs(dval), pi1 / 2.0)) {
+#ifdef USE_NO_INFINITY
+		Trap0(RE_OVERFLOW);
+#else
+		SET_DECIMAL(D_RET, (dval < 0) ? -INFINITY : INFINITY);
+		return R_RET;
+#endif
+	}
 	SET_DECIMAL(D_RET, tan(dval));
 	return R_RET;
 }