FIX: block-like series must be terminated with the END value

Oldes · Oldes · commit 31e72ec44b8e · 2022-12-06T15:03:37.000+01:00
diff --git a/src/core/n-data.c b/src/core/n-data.c
@@ -1048,6 +1048,8 @@ static int Do_Ordinal(REBVAL *ds, REBINT n)
 	}
 	if (len >= 0) {
 		VAL_TAIL(arg) = len;
+		if(!ANY_BINSTR(arg))
+			SET_END(BLK_SKIP(VAL_SERIES(arg), len));
 	}
 	return R_ARG1;
 }

Original file line number	Diff line number	Diff line change
`@@ -1048,6 +1048,8 @@ static int Do_Ordinal(REBVAL *ds, REBINT n)`
`1048`	`1048`	`}`
`1049`	`1049`	`if (len >= 0) {`
`1050`	`1050`	`VAL_TAIL(arg) = len;`
	`1051`	`+ if(!ANY_BINSTR(arg))`
	`1052`	`+ SET_END(BLK_SKIP(VAL_SERIES(arg), len));`
`1051`	`1053`	`}`
`1052`	`1054`	`return R_ARG1;`
`1053`	`1055`	`}`