FIX: find/same not working when used a block as a key

resolves: Oldes/Rebol-issues#2473

src/core/t-block.c

@@ -139,7 +139,11 @@ static void No_Nones_Or_Logic(REBVAL *arg) {
 			cnt = 0;
 			value = BLK_SKIP(series, index);
 			for (val = VAL_BLK_DATA(target); NOT_END(val); val++, value++) {
-				if (0 != Cmp_Value(value, val, (REBOOL)(flags & AM_FIND_CASE))) break;
+				if ((flags & AM_FIND_SAME)) {
+					if (0 == Compare_Values(value, val, 3))
+						break;
+				}
+				else if (0 != Cmp_Value(value, val, (REBOOL)(flags & AM_FIND_CASE))) break;
 				if (++cnt >= len) {
 					return index;
 				}

src/tests/units/series-test.r3

@@ -275,6 +275,23 @@ Rebol [
 	--assert 2 = index? find/same [1.0 1] 1
 	--assert 1 = index? find/same [1.0 1] 1.0
 
+--test-- "FIND block! block!"
+;@@ https://github.com/Oldes/Rebol-issues/issues/2473
+	blk: [1.0 3 1 3 1.0 2.0 1 2]
+	--assert 5 = index? find blk [1 2]
+	--assert 1 = index? find blk [1 3]
+	--assert 5 = index? find blk [1.0 2]
+	--assert 7 = index? find/same blk [1 2]
+	--assert 3 = index? find/same blk [1 3]
+	--assert      none? find/same blk [1.0 2]
+	a: "a" b: "b" blk: reduce ["a" "b" a b]
+	--assert 1 = index? find blk reduce [a b]
+	--assert 1 = index? find blk reduce ["a" "b"]
+	--assert 3 = index? find/same blk reduce [a b]
+	--assert      none? find/same blk reduce [a "b"]
+	--assert      none? find/same blk reduce ["a" "b"]
+
+
 --test-- "FIND/SAME in string!"
 	--assert "AbcdAe" = find/same "aAbcdAe" "A"
 	--assert "Ae" = find/same/last "aAbcdAe" "A"