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

core-foundation.run-loop: remove unnecessary yields. This fixes a thread starvation issue with game.input

db4
Slava Pestov 2010-03-15 19:25:57 +13:00
parent e30d18aefc
commit f0a9912ae9
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -106,11 +106,11 @@ TUPLE: run-loop fds sources timers ;
nano-count - 1,000 /f system-micros + ;
: reset-timer ( timer -- )
yield {
{ [ run-queue deque-empty? not ] [ yield system-micros (reset-timer) ] }
{ [ sleep-queue heap-empty? ] [ system-micros 1,000,000 + (reset-timer) ] }
[ sleep-queue heap-peek nip nano-count>micros (reset-timer) ]
} cond ;
{
{ [ run-queue deque-empty? not ] [ system-micros ] }
{ [ sleep-queue heap-empty? not ] [ sleep-queue heap-peek nip nano-count>micros ] }
[ system-micros 1,000,000 + ]
} cond (reset-timer) ;
PRIVATE>