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

[factor.git] / basis / game / input / input.factor

diff --git a/basis/game/input/input.factor b/basis/game/input/input.factor
index 204de8b9d755159c9b5934f046170e472b278750..3f92333cc5c719cf5c81392bc08a7e81af0f5a20 100644 (file)
--- a/basis/game/input/input.factor
+++ b/basis/game/input/input.factor
@@ -36,10 +36,10 @@ M: f (reset-game-input) ;
 : reset-game-input ( -- )
     (reset-game-input) ;
 
-[ reset-game-input ] "game-input" add-startup-hook
-
 PRIVATE>
 
+STARTUP-HOOK: reset-game-input
+
 ERROR: game-input-not-open ;
 
 : open-game-input ( -- )
@@ -48,6 +48,7 @@ ERROR: game-input-not-open ;
     ] unless
     game-input-opened [ 1 + ] change-global
     reset-mouse ;
+
 : close-game-input ( -- )
     game-input-opened [
         dup zero? [ game-input-not-open ] when