Fix dispose method on run-loop-mx

db4
Slava Pestov 2008-12-12 19:48:34 -06:00
parent a91dee7810
commit 8433a9954a
1 changed files with 2 additions and 2 deletions
basis/io/unix/multiplexers/run-loop

View File

@ -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