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

core-foundation.run-loop: remove reset on every iteration.

db4
John Benediktsson 2012-08-01 16:59:33 -07:00
parent a056a81307
commit 7d8d6cdd51
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -126,7 +126,6 @@ PRIVATE>
60 timer-callback <CFTimer> add-timer-to-run-loop ; 60 timer-callback <CFTimer> add-timer-to-run-loop ;
: run-one-iteration ( nanos -- handled? ) : run-one-iteration ( nanos -- handled? )
reset-run-loop
CFRunLoopDefaultMode CFRunLoopDefaultMode
swap [ 1,000,000,000 / ] [ 300 ] if* swap [ 1,000,000,000 / ] [ 300 ] if*
t CFRunLoopRunInMode kCFRunLoopRunHandledSource = ; t CFRunLoopRunInMode kCFRunLoopRunHandledSource = ;

3
basis/io/backend/unix/multiplexers/run-loop/run-loop.factor
View File

@ -12,8 +12,9 @@ TUPLE: run-loop-mx kqueue-mx ;
: file-descriptor-callback ( -- callback ) : file-descriptor-callback ( -- callback )
void { CFFileDescriptorRef CFOptionFlags void* } void { CFFileDescriptorRef CFOptionFlags void* }
cdecl [ cdecl [
3drop 2drop
0 mx get-global kqueue-mx>> wait-for-events 0 mx get-global kqueue-mx>> wait-for-events
enable-all-callbacks
yield yield
] alien-callback ; ] alien-callback ;