Fix fs-events issue

2008-03-18 18:17:25 -05:00 · 2008-03-18 18:17:25 -05:00 · cb4974aa34
parent 4b2368e99f
commit cb4974aa34
1 changed files with 2 additions and 1 deletions
--- a/extra/core-foundation/fsevents/fsevents.factor
+++ b/extra/core-foundation/fsevents/fsevents.factor
@ -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