tick-player-reverse ( world player -- )

Vocabulary

terrain

Inputs

world	an object
player	an object

Outputs

None

Definition

USING: accessors kernel math math.order sequences ;

IN: terrain

:: tick-player-reverse ( world player -- )
    player reverse-time>> :> reverse-time world history>>
    :> history history length 0 > [
        history length reverse-time 1 - - 1 max
        history set-length history pop world player<<
    ] when ;