core-foundation.run-loop: CFTimeInterval is a double.
parent
be04b19745
commit
c81bf00e46
|
@ -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 = ;
|
||||
|
|
Loading…
Reference in New Issue