io.launcher: hide processes created by (process-stream)

basis/io/launcher/launcher.factor

@@ -255,7 +255,7 @@ PRIVATE>
             (pipe) |dispose
             (pipe) |dispose {
                 [
-                    rot >process
+                    rot >process t >>hidden
                         [ swap in>> or ] change-stdin
                         [ swap out>> or ] change-stdout
                     run-detached

basis/io/launcher/windows/windows-tests.factor

@@ -224,6 +224,10 @@ SYMBOLS: out-path err-path ;
     out-path get-global utf8 file-contents
 ] unit-test
 
+{ t "This is a hidden process.\r\n" } [
+    "cmd /c echo.This is a hidden process." utf8 (process-stream) hidden>> swap stream-contents
+] unit-test
+
 [ "IN: scratchpad " ] [
     console-vm-path "-run=listener" 2array
     ascii [ "USE: system 0 exit" print flush lines last ] with-process-stream