FIX: DECIMAL! picking acting as SELECT, though it PICKed in Rebol2

fixes: metaeducation/rebol-issues#2312
Oldes · Jun 14, 2018 · 6202a85 · 6202a85
1 parent 582e43d
commit 6202a85
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/src/core/t-block.c b/src/core/t-block.c
@@ -534,12 +534,11 @@ static struct {
 	REBINT n = 0;
 
 	/* Issues!!!
-		a/1.3
 		a/not-found: 10 error or append?
 		a/not-followed: 10 error or append?
 	*/
 
-	if (IS_INTEGER(pvs->select)) {
+	if (IS_INTEGER(pvs->select) || IS_DECIMAL(pvs->select)) {
 		REBINT i = Int32(pvs->select);
 		if (i == 0) return PE_NONE; // like in case: path/0
 		if (i < 0) i++;