FEAT: allow word!, get-word! and get-path! values inside a call argument

Author: Oldes

src/core/n-io.c

@@ -819,11 +819,21 @@ static REBSER *Read_All_File(char *fname)
 		argv = (REBCHR**)SERIES_DATA(ser);
 		for (i = 0; i < argc; i ++) {
 			REBVAL *param = VAL_BLK_SKIP(arg, i);
+			if (IS_GET_WORD(param)) {
+				param = Get_Var(param);
+			}
+			else if (IS_GET_PATH(param)) {
+				Do_Path(&param, NULL);
+				param = DS_POP; // volatile stack reference
+			}
 			if (IS_FILE(param)) {
 				REBSER* path = Value_To_OS_Path(param, FALSE);
 				argv[i] = (REBCHR*)SERIES_DATA(path);
 			} else if (ANY_STR(param)) {
 				argv[i] = Val_Str_To_OS(param);
+			} else if (IS_WORD(param)) {
+				Set_Series(REB_STRING, D_RET, Copy_Form_Value(param, TRUE));
+				argv[i] = Val_Str_To_OS(D_RET);
 			} else {
 				Trap_Arg(param);
 			}

src/tests/units/call-test.r3

@@ -85,6 +85,17 @@ rebol-cmd: func[cmd][
 		date? transcode/one tmp
 	]
 	delete %issue-2582.r3
+	--test-- "Block input with word!, get-word! and get-path!"
+	--assert all [
+		file? try [write %probe-args.r3 {Rebol [] probe system/options/args}]
+		tmp: clear ""
+		url: http://example.org
+		;; not using reduce in this test...
+		0 = call/wait/output [:system/options/boot %probe-args.r3 :url foo] tmp
+		["http://example.org" "foo"] = transcode/one tmp
+	]
+	delete %probe-args.r3
+
 ===end-group===