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

Oldes · Dec 6, 2022 · 31e72ec · 31e72ec
1 parent 783309e
commit 31e72ec
Showing 1 changed file with 2 additions and 0 deletions.
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;
 }