core-foundation.run-loop: use fewer durations.

db4
John Benediktsson 2012-08-01 11:53:33 -07:00
parent ebac6a5dbf
commit caf4e677c7
1 changed files with 1 additions and 1 deletions

View File

@ -128,5 +128,5 @@ PRIVATE>
: run-one-iteration ( nanos -- handled? )
reset-run-loop
CFRunLoopDefaultMode
swap [ nanoseconds ] [ 5 minutes ] if* >CFTimeInterval
swap [ 1,000,000,000 / ] [ 300 ] if*
t CFRunLoopRunInMode kCFRunLoopRunHandledSource = ;