core-foundation.run-loop: CFTimeInterval is a double.

db4
John Benediktsson 2013-03-06 20:31:42 -08:00
parent be04b19745
commit c81bf00e46
1 changed files with 1 additions and 1 deletions

View File

@ -127,5 +127,5 @@ PRIVATE>
: run-one-iteration ( nanos -- handled? )
CFRunLoopDefaultMode
swap [ 1,000,000,000 / ] [ 300 ] if*
swap [ 1,000,000,000 /f ] [ 300 ] if*
t CFRunLoopRunInMode kCFRunLoopRunHandledSource = ;