record-benchmarking ( loop quot -- )

Vocabulary

game.loop.private

Inputs

loop	an object
quot	an object

Outputs

None

Definition

IN: game.loop.private

GENERIC#: record-benchmarking 1 ( loop quot -- )

Methods

USING: accessors combinators game.loop game.loop.benchmark
game.loop.private kernel sequences tools.time.struct ;

M: game-loop record-benchmarking
    [
        [ [ ( loop -- ) call-effect ] with-benchmarking ]
        [ drop tick#>> ] [ drop frame#>> ] 2tri
        <game-loop-benchmark>
    ] [ drop ensure-benchmark-data ] 2bi push ;


USING: combinators game.loop.private kernel ;

M: object record-benchmarking ( loop -- ) call-effect ;