steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

core-foundation.run-loop: cleanup

db4
Slava Pestov 2010-02-24 21:18:29 +13:00
parent 2a3bf53af7
commit 570e332f84
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
basis/core-foundation/run-loop/run-loop.factor
View File

@ -1,4 +1,4 @@
! Copyright (C) 2008 Slava Pestov ! Copyright (C) 2008, 2010 Slava Pestov
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors alien alien.c-types alien.syntax kernel math USING: accessors alien alien.c-types alien.syntax kernel math
namespaces sequences destructors combinators threads heaps namespaces sequences destructors combinators threads heaps
@ -92,7 +92,10 @@ TUPLE: run-loop fds sources timers ;
] bi ; ] bi ;
: invalidate-run-loop-timers ( -- ) : invalidate-run-loop-timers ( -- )
run-loop [ [ [ CFRunLoopTimerInvalidate ] [ CFRelease ] bi ] each V{ } ] change-timers drop ; run-loop [
[ [ CFRunLoopTimerInvalidate ] [ CFRelease ] bi ] each
V{ } clone
] change-timers drop ;
<PRIVATE <PRIVATE