From 8433a9954adb9320066531738da00dce391443da Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Fri, 12 Dec 2008 19:48:34 -0600
Subject: [PATCH] Fix dispose method on run-loop-mx

---
 basis/io/unix/multiplexers/run-loop/run-loop.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/basis/io/unix/multiplexers/run-loop/run-loop.factor b/basis/io/unix/multiplexers/run-loop/run-loop.factor
index 593fe93ac4..7b80e461dc 100644
--- 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