FIX: throw an error on excess values in any-string construction syntax

related to: Oldes/Rebol-issues#1034
Oldes · Jul 16, 2020 · d0073c4 · d0073c4
1 parent 69f12b0
commit d0073c4
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/src/core/t-string.c b/src/core/t-string.c
@@ -276,8 +276,9 @@ static REBSER *make_binary(REBVAL *arg, REBOOL make)
 ***********************************************************************/
 {
 	REBCNT i;
-
-	if (!ANY_BINSTR(data)) return FALSE;
+	// allow only #[string! "data"] or #[string! "data" index]
+	if (!(ANY_BINSTR(data) && (IS_END(data+1) || (IS_INTEGER(data+1) && IS_END(data+2)))))
+		return FALSE;
 	*out = *data++;
 	VAL_SET(out, type);
 	i = IS_INTEGER(data) ? Int32(data) - 1 : 0;