FIX: don't allow logic as a path part when using to-path

related to: Oldes/Rebol-issues#477

Author: Oldes

src/core/t-block.c

@@ -47,10 +47,10 @@
 	return (num > 0);
 }
 
-static void No_Nones(REBVAL *arg) {
+static void No_Nones_Or_Logic(REBVAL *arg) {
 	arg = VAL_BLK_DATA(arg);
 	for (; NOT_END(arg); arg++) {
-		if (IS_NONE(arg)) Trap_Arg(arg);
+		if (IS_NONE(arg) || IS_LOGIC(arg)) Trap_Arg(arg);
 	}
 }
 
@@ -289,7 +289,7 @@ static void No_Nones(REBVAL *arg) {
 	if (ANY_BLOCK(arg)) {
 		len = VAL_BLK_LEN(arg);
 		if (len > 0 && type >= REB_PATH && type <= REB_LIT_PATH)
-			No_Nones(arg);
+			No_Nones_Or_Logic(arg);
 		ser = Copy_Values(VAL_BLK_DATA(arg), len);
 		goto done;
 	}

src/tests/units/series-test.r3

@@ -648,6 +648,19 @@ Rebol [
 ===end-group===
 
 
+===start-group=== "TO-*"
+
+--test-- "to-path"
+	--assert (mold to-path [1 2 3]) = "1/2/3"
+	--assert (mold to-path [1 none 3]) = "1/none/3"
+	;@@ https://github.com/Oldes/Rebol-issues/issues/477
+	--assert error? try [to-path [1 #[none] 3]]
+	--assert error? try [to-path [1 #[true] 3]]
+	--assert error? try [to-path [1 #[false] 3]]
+
+===end-group===
+
+
 ;-- VECTOR related tests moved to %vector-test.r3
 
 ~~~end-file~~~