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

core-foundation.run-loop: Rename run-loop.

db4
Doug Coleman 2013-03-23 22:18:00 -07:00
parent 1754ab73bd
commit c88760128d
1 changed files with 3 additions and 3 deletions
basis/core-foundation/run-loop

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

@ -58,13 +58,13 @@ FUNCTION: void CFRunLoopRemoveTimer (
CFSTRING: CFRunLoopDefaultMode "kCFRunLoopDefaultMode"
TUPLE: run-loop fds sources timers ;
TUPLE: run-loop-state fds sources timers ;
: <run-loop> ( -- run-loop )
V{ } clone V{ } clone V{ } clone \ run-loop boa ;
V{ } clone V{ } clone V{ } clone \ run-loop-state boa ;
: run-loop ( -- run-loop )
\ run-loop [ <run-loop> ] initialize-alien ;
\ run-loop-state [ <run-loop> ] initialize-alien ;
: add-source-to-run-loop ( source -- )
[ run-loop sources>> push ]