switch-animation ( sprite animation -- sprite )

Vocabulary

papier.sprites

Inputs

sprite	an object
animation	an object

Outputs

sprite

an object

Definition

USING: accessors kernel ;

IN: papier.sprites

: switch-animation ( sprite animation -- sprite )
    2dup swap cursor>> animation>> eq?
    [ drop ] [ start-animation ] if ; inline