From b9df6d89e3e08b17351cdbe43bb85776e5af5b79 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Sun, 19 Oct 2008 04:40:15 -0500
Subject: [PATCH] Fix dodgy init-hook
---
basis/io/launcher/launcher.factor | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
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
<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