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

[factor.git] / basis / windows / directx / dinput / constants / constants.factor

diff --git a/basis/windows/directx/dinput/constants/constants.factor b/basis/windows/directx/dinput/constants/constants.factor
index f7ab901417d80bf20d438ee6afd6980a8b9ec6a8..5d95d6ae937cf4c5617d8c4d7908fde7e6b6bfd2 100644 (file)
--- a/basis/windows/directx/dinput/constants/constants.factor
+++ b/basis/windows/directx/dinput/constants/constants.factor
@@ -832,7 +832,7 @@ MACRO: <DIDATAFORMAT> ( dwFlags dwDataSize struct rgodf-array -- alien )
     define-guid-constants
     define-format-constants ;
 
-[ define-constants ] "windows.directx.dinput.constants" add-startup-hook
+STARTUP-HOOK: define-constants
 
 : uninitialize ( variable quot -- )
     '[ _ when* f ] change-global ; inline