diff --git a/basis/io/launcher/launcher.factor b/basis/io/launcher/launcher.factor index 3e190e012e..3e1ef6ce05 100644 --- a/basis/io/launcher/launcher.factor +++ b/basis/io/launcher/launcher.factor @@ -58,8 +58,6 @@ SYMBOL: +realtime-priority+ ! Non-blocking process exit notification facility SYMBOL: processes -[ H{ } clone processes set-global ] "io.launcher" add-init-hook - HOOK: wait-for-processes io-backend ( -- ? ) SYMBOL: wait-flag @@ -73,7 +71,10 @@ SYMBOL: wait-flag wait-flag set-global [ wait-loop t ] "Process wait" spawn-server drop ; -[ start-wait-thread ] "io.launcher" add-init-hook +[ + H{ } clone processes set-global + start-wait-thread +] "io.launcher" add-init-hook : process-started ( process handle -- ) >>handle