wait-until ( quot: ( -- ? ) -- )

Vocabulary

raylib.live-coding.smoke-test

Inputs

quot	a quotation with stack effect ( -- ? )

Outputs

None

Definition

USING: calendar kernel math system threads ;

IN: raylib.live-coding.smoke-test

:: wait-until ( quot: ( -- ? ) -- )
    nano-count 15000000000 + :> deadline
    [ quot call not ] [
        nano-count deadline >
        [ "Live-coding smoke test timed out" throw ] when
        10 milliseconds sleep
    ] while ; inline