FEAT: added support for decimap pick on pair! and any-string!

related to: Oldes/Rebol-issues#2313

Author: Oldes

src/core/t-pair.c

@@ -148,7 +148,7 @@
 		else if (VAL_WORD_CANON(sel) == SYM_Y) n = 2;
 		else return PE_BAD_SELECT;
 	}
-	else if (IS_INTEGER(sel)) {
+	else if (IS_INTEGER(sel) || IS_DECIMAL(sel)) {
 		n = Int32(sel);
 		if (n != 1 && n !=2) return PE_BAD_SELECT;
 	}

src/core/t-string.c

@@ -362,7 +362,7 @@ static REBSER *make_binary(REBVAL *arg, REBOOL make)
 	REBINT c;
 	REBSER *ser = VAL_SERIES(data);
 
-	if (IS_INTEGER(pvs->select)) {
+	if (IS_INTEGER(pvs->select) || IS_DECIMAL(pvs->select)) {
 		i = Int32(pvs->select);
 		if (i == 0) return PE_NONE; // like in case: path/0
 		if (i < 0) i++;

src/tests/units/decimal-test.r3

@@ -120,6 +120,36 @@ Rebol [
 	;@@ https://github.com/Oldes/Rebol-issues/issues/271
 		--assert not same? 0.1 0.3 - 0.2
 
+	--test-- "decimal pick"
+		b: [1 2]
+		--assert 1 = b/1.0
+		--assert 1 = b/1.1
+		--assert 1 = b/1.6
+		--assert 2 = b/2.0
+		--assert 2 = b/2.1
+		--assert 2 = b/2.6
+		s: "12"
+		--assert #"1" = s/1.0
+		--assert #"1" = s/1.1
+		--assert #"1" = s/1.6
+		--assert #"2" = s/2.0
+		--assert #"2" = s/2.1
+		--assert #"2" = s/2.6
+		p: 1x2
+		--assert 1 = p/1.0
+		--assert 1 = p/1.1
+		--assert 1 = p/1.6
+		--assert 2 = p/2.0
+		--assert 2 = p/2.1
+		--assert 2 = p/2.6
+		t: 1.2.3
+		--assert 1 = t/1.0
+		--assert 1 = t/1.1
+		--assert 1 = t/1.6
+		--assert 2 = t/2.0
+		--assert 2 = t/2.1
+		--assert 2 = t/2.6
+
 ===end-group===
 
 ~~~end-file~~~