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

[factor.git] / basis / windows / com / wrapper / wrapper.factor

diff --git a/basis/windows/com/wrapper/wrapper.factor b/basis/windows/com/wrapper/wrapper.factor
index 93cfe8f5f2932b6d23089a7b4cac667679a8224c..2f333b1004a6d875d849c899730d99ba0ef997aa 100644 (file)
--- a/basis/windows/com/wrapper/wrapper.factor
+++ b/basis/windows/com/wrapper/wrapper.factor
@@ -140,7 +140,7 @@ unless
     +live-wrappers+ get-global [ (allocate-wrapper) ] each
     H{ } +wrapped-objects+ set-global ;
 
-[ com-startup-hook ] "windows.com.wrapper" add-startup-hook
+STARTUP-HOOK: com-startup-hook
 
 PRIVATE>