]> gitweb.factorcode.org Git - factor.git/blobdiff - basis/core-foundation/fsevents/fsevents.factor
core/basis/extra: using STARTUP-HOOK: and SHUTDOWN-HOOK:
[factor.git] / basis / core-foundation / fsevents / fsevents.factor
index fb216f55c4d9916f3518048dcb6a69c23eef0bd6..c63ec926b2509e9806d7a6b4f07ffc54621c4db5 100644 (file)
@@ -174,10 +174,10 @@ SYMBOL: event-stream-callbacks
 : event-stream-counter ( -- n )
     \ event-stream-counter counter ;
 
-[
+STARTUP-HOOK: [
     event-stream-callbacks
     [ [ drop expired? ] H{ } assoc-reject-as ] change-global
-] "core-foundation" add-startup-hook
+]
 
 : add-event-source-callback ( quot -- id )
     event-stream-counter <alien>