object-times ( active-object -- t1 t2 )

Vocabulary

rosetta-code.active-object

Inputs

active-object

an object

Outputs

t1	an object
t2	an object

Definition

USING: accessors kernel ;

IN: rosetta-code.active-object

: object-times ( active-object -- t1 t2 )
    [ previous-time>> ]
    [ nano-to-seconds [ >>previous-time drop ] keep ] bi ;