core-foundation.run-loop: CFTimeInterval is a double.
parent
be04b19745
commit
c81bf00e46
|
@ -127,5 +127,5 @@ PRIVATE>
|
||||||
|
|
||||||
: run-one-iteration ( nanos -- handled? )
|
: run-one-iteration ( nanos -- handled? )
|
||||||
CFRunLoopDefaultMode
|
CFRunLoopDefaultMode
|
||||||
swap [ 1,000,000,000 / ] [ 300 ] if*
|
swap [ 1,000,000,000 /f ] [ 300 ] if*
|
||||||
t CFRunLoopRunInMode kCFRunLoopRunHandledSource = ;
|
t CFRunLoopRunInMode kCFRunLoopRunHandledSource = ;
|
||||||
|
|
Loading…
Reference in New Issue