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

diff --git a/basis/io/launcher/launcher.factor b/basis/io/launcher/launcher.factor
index 8e4246dbad30319ecae5274c5cf8197529d3e96f..89c0c70c70ff37e557b6ed73e0094f5708b5b1f3 100755 (executable)
--- a/basis/io/launcher/launcher.factor
+++ b/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

diff --git a/basis/io/launcher/windows/windows-tests.factor b/basis/io/launcher/windows/windows-tests.factor
index 7e7d665d9dfb4679aef55f8b738ac12914e8f48f..4c180fad7763075e0b3bd2ebe24397c56d2a4f69 100644 (file)
--- a/basis/io/launcher/windows/windows-tests.factor
+++ b/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