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

[factor.git] / core / compiler / units / units.factor

diff --git a/core/compiler/units/units.factor b/core/compiler/units/units.factor
index 3a50096a0bbbdf6431443cbacf80dc867ac1e9ec..07e2e23c21a39592e972e4f1cf35c1cb105fd20d 100644 (file)
--- a/core/compiler/units/units.factor
+++ b/core/compiler/units/units.factor
@@ -91,12 +91,12 @@ SYMBOL: definition-observers
 
 GENERIC: definitions-changed ( set obj -- )
 
-[ V{ } clone definition-observers set-global ]
-"compiler.units" add-startup-hook
+STARTUP-HOOK: [
+    V{ } clone definition-observers set-global
 
-! This goes here because vocabs cannot depend on init
-[ V{ } clone vocab-observers set-global ]
-"vocabs" add-startup-hook
+    ! This goes here because vocabs cannot depend on init
+    V{ } clone vocab-observers set-global
+]
 
 : add-definition-observer ( obj -- )
     definition-observers get push ;