CHANGE: fine-tune decimal non-strict comparison (to cover also percent datatype)

Author: Oldes

src/core/t-decimal.c

@@ -177,7 +177,7 @@ REBOOL almost_equal(REBDEC a, REBDEC b, REBCNT max_diff) {
 ***********************************************************************/
 {
 	if (mode >= 0) {
-		if (mode <= 1) return almost_equal(VAL_DECIMAL(a), VAL_DECIMAL(b), 10);
+		if (mode <= 1) return almost_equal(VAL_DECIMAL(a), VAL_DECIMAL(b), 21); //O: there was 10, but 21 is the minimum to have: (100% // 3% = 1%) == true
 		if (mode == 2) return almost_equal(VAL_DECIMAL(a), VAL_DECIMAL(b), 0);
 		return VAL_INT64(a) == VAL_INT64(b); // bits are identical
 	}

src/tests/units/decimal-test.r3

@@ -322,7 +322,10 @@ Rebol [
 		--assert 1000 // #"a" == 30
 		--assert #"a" // 3    == #"^A"
 		--assert 10:0 // 3:0  == 1:0
-		--assert  10% // 3%   == 1%
+		--assert not (100% // 3% == 1%)
+		--assert     (100% // 3%  = 1%)
+		--assert not ( 10% // 3% == 1%)
+		--assert     ( 10% // 3%  = 1%)
 		--assert  10  // 3%   == 0  ; because result A was integer, result is also integer!
 		--assert 0.01 = round/to (10.0 // 3%) 0.00001