Fix fs-events issue

db4
Slava Pestov 2008-03-18 18:17:25 -05:00
parent 4b2368e99f
commit cb4974aa34
1 changed files with 2 additions and 1 deletions
extra/core-foundation/fsevents

View File

@ -150,7 +150,8 @@ SYMBOL: event-stream-callbacks
: event-stream-counter \ event-stream-counter counter ;
[
H{ } clone event-stream-callbacks set-global
event-stream-callbacks global
[ [ drop expired? not ] assoc-subset ] change-at
1 \ event-stream-counter set-global
] "core-foundation" add-init-hook