<active-object> ( -- object )

Vocabulary

rosetta-code.active-object

Inputs

None

Outputs

object

an object

Definition

USING: accessors calendar kernel timers ;

IN: rosetta-code.active-object

: <active-object> ( -- object )
    active-object new 0 >>state nano-to-seconds >>previous-time
    [ drop 0 ] >>function dup [ integrate ] curry
    1 nanoseconds every >>timer ;