CHANGE: unset value in any and all is transparent now

resolves: Oldes/Rebol-issues#850
resolves: #88

Author: Oldes

src/core/n-control.c

@@ -307,12 +307,19 @@ enum {
 	ds = 0;
 	while (index < SERIES_TAIL(block)) {
 		index = Do_Next(block, index, 0); // stack volatile
+		// ignore unset result
+		if (IS_UNSET(DS_TOP)) {
+			DS_DROP;
+			continue;
+		}
 		ds = DS_POP;  // volatile stack reference
 		if (IS_FALSE(ds)) return R_NONE;
+		// store the value as a potencial result
+		DS_RET_VALUE(ds);
+		// stop precessing if the value was thrown
 		if (THROWN(ds)) break;
 	}
-	if (ds == 0) return R_TRUE;
-	return R_TOS1;
+	return R_RET;
 }
 
 
@@ -328,6 +335,7 @@ enum {
 	while (index < SERIES_TAIL(block)) {
 		index = Do_Next(block, index, 0); // stack volatile
 		ds = DS_POP;  // volatile stack reference
+		if (IS_UNSET(ds)) continue; // ignore unset result
 		if (!IS_FALSE(ds)) return R_TOS1;
 	}
 	return R_NONE;

src/tests/units/conditional-test.r3

@@ -10,13 +10,13 @@ Rebol [
 
 ===start-group=== "Dealing with unset! value in conditions"
 	--test-- "any"
-		--assert unset? any [() 2]
+		--assert 2 = any [() 2]
 		--assert true?  any [() 2]
 	--test-- "all"
 		--assert true? all []
 		--assert true? all [()]
 		--assert 3 = all [() 1 2 3]
-		--assert unset? all [1 ()]
+		--assert 1 = all [1 ()]
 		--assert 1 = if all [1 ()][1]
 		--assert 1 = either all [()][1][2]
 	--test-- "any and all"
@@ -25,6 +25,13 @@ Rebol [
 			all [true  x: 2 ()]
 		][ x: 2 * x]
 		--assert x = 4
+		;@@ https://github.com/Oldes/Rebol3/discussions/88
+		--assert  none? any []
+		--assert  none? any [()]
+		--assert    1 = any [() 1]
+		--assert    1 = all [1 ()]
+		--assert #[true] = all []
+		--assert #[true] = all [()]
 ===end-group===
 
 ===start-group=== "SWITCH"