Skip to content

Commit 6202a85

Browse files
committed
FIX: DECIMAL! picking acting as SELECT, though it PICKed in Rebol2
fixes: metaeducation/rebol-issues#2312
1 parent 582e43d commit 6202a85

File tree

1 file changed

+1
-2
lines changed

1 file changed

+1
-2
lines changed

src/core/t-block.c

+1-2
Original file line numberDiff line numberDiff line change
@@ -534,12 +534,11 @@ static struct {
534534
REBINT n = 0;
535535

536536
/* Issues!!!
537-
a/1.3
538537
a/not-found: 10 error or append?
539538
a/not-followed: 10 error or append?
540539
*/
541540

542-
if (IS_INTEGER(pvs->select)) {
541+
if (IS_INTEGER(pvs->select) || IS_DECIMAL(pvs->select)) {
543542
REBINT i = Int32(pvs->select);
544543
if (i == 0) return PE_NONE; // like in case: path/0
545544
if (i < 0) i++;

0 commit comments

Comments
 (0)