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
Oldes · Apr 3, 2020 · 44b13f8 · 44b13f8
1 parent 0ad97ba
commit 44b13f8
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 3 deletions.
diff --git a/src/core/t-block.c b/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;
 	}

diff --git a/src/tests/units/series-test.r3 b/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===