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

[factor.git] / core / alien / alien.factor

diff --git a/core/alien/alien.factor b/core/alien/alien.factor
index cb73df0c0420ac797af05a0e8fae478bf887ec7b..385fd606aeca713ee4db6bb035beb0a6f5c5be3e 100644 (file)
--- a/core/alien/alien.factor
+++ b/core/alien/alien.factor
@@ -105,7 +105,7 @@ ERROR: callsite-not-compiled word ;
 ! cleared on startup.
 SYMBOL: callbacks
 
-[ H{ } clone callbacks set-global ] "alien" add-startup-hook
+STARTUP-HOOK: [ H{ } clone callbacks set-global ]
 
 ! Used by compiler.codegen to wrap callback bodies
 : do-callback ( callback-quot wait-quot: ( callback -- ) -- )