when-running ( loop quot -- )

Vocabulary

game.loop

Inputs

loop	an object
quot	an object

Outputs

None

Definition

USING: accessors continuations kernel ;

IN: game.loop

:: when-running ( loop quot -- )
    [ loop dup running?>> quot [ drop ] if ]
    [ loop game-loop-error ] recover ; inline