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

[factor.git] / basis / windows / dropfiles / dropfiles.factor

diff --git a/basis/windows/dropfiles/dropfiles.factor b/basis/windows/dropfiles/dropfiles.factor
index 1c0e1dde484448f8a8ac5509c6d0df26fcb3850e..0074f44716174b8899e6b0622759aaed030bf2ea 100644 (file)
--- a/basis/windows/dropfiles/dropfiles.factor
+++ b/basis/windows/dropfiles/dropfiles.factor
@@ -62,6 +62,4 @@ IN: windows.dropfiles
 : reject-files ( -- )
     world get world-reject-files ;
 
-[
-    f \ init-message-filter set-global
-] "init-dropfiles" add-startup-hook
+STARTUP-HOOK: [ f \ init-message-filter set-global ]