Fix dispose method on run-loop-mx

2008-12-12 19:48:34 -06:00 · 2008-12-12 19:48:34 -06:00 · 8433a9954a
parent a91dee7810
commit 8433a9954a
1 changed files with 2 additions and 2 deletions
--- a/basis/io/unix/multiplexers/run-loop/run-loop.factor
+++ b/basis/io/unix/multiplexers/run-loop/run-loop.factor
@ -40,8 +40,8 @@ SYMBOL: kqueue-run-loop-source
 M: run-loop-mx dispose
    [
        {
-            [ fd>> &dispose drop ]
-            [ source>> &dispose drop ]
+            [ fd>> &CFRelease drop ]
+            [ source>> &CFRelease drop ]
            [ remove-kqueue-from-run-loop ]
            [ kqueue-mx>> &dispose drop ]
        } cleave