core/basis/extra: using STARTUP-HOOK: and SHUTDOWN-HOOK:

[factor.git] / basis / io / launcher / launcher.factor

diff --git a/basis/io/launcher/launcher.factor b/basis/io/launcher/launcher.factor
index f82929fd153792b691496f7a48731e15938d5f6c..7e5aac1e458b914804f73dddb54682fddc29acd5 100644 (file)
--- a/basis/io/launcher/launcher.factor
+++ b/basis/io/launcher/launcher.factor
@@ -93,10 +93,10 @@ SYMBOL: wait-delay
     5 wait-delay set-global
     [ wait-loop t ] "Process wait" spawn-server drop ;
 
-[
+STARTUP-HOOK: [
     H{ } clone processes set-global
     start-wait-thread
-] "io.launcher" add-startup-hook
+]
 
 : process-started ( process handle -- )
     >>handle