FIX: crash when using foreach with a set-word and values not in a block

resolves: Oldes/Rebol-issues#2530

Author: Oldes

src/core/n-loop.c

@@ -3,6 +3,7 @@
 **  REBOL [R3] Language Interpreter and Run-time Environment
 **
 **  Copyright 2012 REBOL Technologies
+**  Copyright 2012-2023 Rebol Open Source Developers
 **  REBOL is a trademark of REBOL Technologies
 **
 **  Licensed under the Apache License, Version 2.0 (the "License");
@@ -443,7 +444,7 @@ enum loop_each_mode {
 				if (ANY_OBJECT(value) || IS_MAP(value)) {
 					*vars = *value;
 				} else {
-					VAL_SET(vars, REB_BLOCK);
+					VAL_SET(vars, VAL_TYPE(value));
 					VAL_SERIES(vars) = series;
 					VAL_INDEX(vars) = index;
 				}

src/tests/units/series-test.r3

@@ -1524,6 +1524,21 @@ Rebol [
 	--assert 3 = foreach [ref: k v] m [if ref = m [x: x + v]]
 	--assert 6 = foreach [ref: k] m [if ref = m [x: x + m/:k]]
 	--assert ref = 'foo
+
+--test-- "FOREACH [ref:] series!"
+	;@@ https://github.com/Oldes/Rebol-issues/issues/2530
+	code: [if 2 = index? ref [break/return ref]]
+	foreach [result values][
+		[2]   [1 2]
+		(2)   (1 2)
+		b/c   a/b/c
+		"bc"  "abc"
+		%bc   %abc
+		#{02} #{0102}
+	][
+		--assert result == foreach [ref:] :values :code
+	]
+
 ===end-group===
 
 ===start-group=== "MAP-EACH"