FIX: set with any-block types

resolves: Oldes/Rebol-issues#2488

src/core/n-data.c

@@ -3,7 +3,7 @@
 **  REBOL [R3] Language Interpreter and Run-time Environment
 **
 **  Copyright 2012 REBOL Technologies
-**  Copyright 2012-2021 Rebol Open Source Developers
+**  Copyright 2012-2022 Rebol Open Source Developers
 **  REBOL is a trademark of REBOL Technologies
 **
 **  Licensed under the Apache License, Version 2.0 (the "License");
@@ -581,7 +581,7 @@ static int Check_Char_Range(REBVAL *val, REBINT limit)
 	}
 
 	// Is value a block?
-	if (IS_BLOCK(val)) {
+	if (ANY_BLOCK(val)) {
 		if (not_only) val = VAL_BLK_DATA(val);
 		if (IS_END(val)) val = NONE_VALUE;
 		else is_blk = TRUE;

src/tests/units/evaluation-test.r3

@@ -539,7 +539,40 @@ Rebol [
 		--assert error? try [set [/e][5]]
 		--assert error? try [set [#f][6]]
 		--assert error? try [set /a 1]
-
+
+	--test-- "set any block"
+	;@@ https://github.com/Oldes/Rebol-issues/issues/2488
+		--assert all [
+			[[][]] = set [a b] first [[[][]]]
+			a = []
+			b = []
+		]
+		--assert all [
+			paren? set [a b] first [([][])]
+			a = []
+			b = []
+		]
+		--assert all [
+			path? set [a b] first [x/y]
+			a = 'x
+			b = 'y
+		]
+		--assert all [
+			[[][]] = set/only [a b] val: first [[[][]]]
+			a = val
+			b = val
+		]
+		--assert all [
+			paren? set/only [a b] val: first [([][])]
+			a = val
+			b = val
+		]
+		--assert all [
+			path? set/only [a b] val: first [x/y]
+			a = val
+			b = val
+		]
+
 	--test-- "set path"
 	;@@ https://github.com/Oldes/Rebol-issues/issues/2275
 	;Parenthesized expressions on left for SET-PATH! evaluate after right hand expressions