FIX: Zero to the power of zero is 1 instead of 0

fixes: metaeducation/rebol-issues#2315
Oldes · Jun 20, 2018 · 045fff8 · 045fff8
1 parent 5fa2db1
commit 045fff8
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/core/t-decimal.c b/src/core/t-decimal.c
@@ -293,11 +293,11 @@ REBOOL almost_equal(REBDEC a, REBDEC b, REBCNT max_diff) {
 				goto setDec;
 
 			case A_POWER:
-				if (d1 == 0) goto setDec;
 				if (d2 == 0) {
 					d1 = 1.0;
 					goto setDec;
 				}
+				if (d1 == 0) goto setDec;
 				//if (d1 < 0 && d2 < 1 && d2 != -1)
 				//  Trap0(RE_POSITIVE);
 				d1 = pow(d1, d2);