FIX/CHANGE: allow any value as a part of path!

```
>> p: to-path b: [1 #[none] #[true] [] () #{}]
== 1/none/true/[]/()/#{}

```

related to: Oldes/Rebol-issues#477

Author: Oldes

src/core/t-block.c

@@ -47,12 +47,14 @@
 	return (num > 0);
 }
 
+#ifdef not_used
 static void No_Nones_Or_Logic(REBVAL *arg) {
 	arg = VAL_BLK_DATA(arg);
 	for (; NOT_END(arg); arg++) {
 		if (IS_NONE(arg) || IS_LOGIC(arg)) Trap_Arg(arg);
 	}
 }
+#endif
 
 /***********************************************************************
 **
@@ -288,8 +290,10 @@ static void No_Nones_Or_Logic(REBVAL *arg) {
 	// make block! [1 2 3]
 	if (ANY_BLOCK(arg)) {
 		len = VAL_BLK_LEN(arg);
+#ifdef not_used
 		if (len > 0 && type >= REB_PATH && type <= REB_LIT_PATH)
 			No_Nones_Or_Logic(arg);
+#endif
 		ser = Copy_Values(VAL_BLK_DATA(arg), len);
 		goto done;
 	}

src/tests/units/series-test.r3

@@ -654,9 +654,14 @@ Rebol [
 	--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]]
+	--assert path? p: try [to-path b: [1 #[none] #[true] [] () #{}]]
+	--assert integer? p/1
+	--assert none?    p/2
+	--assert true?    p/3
+	--assert block?   p/4
+	--assert paren?   p/5
+	--assert binary?  p/6
+	--assert b = to-block p 
 
 ===end-group===