throttle ( quot millis -- quot' )

Vocabulary

combinators.extras

Inputs

quot	an object
millis	an object

Outputs

quot'

an object

Definition

USING: kernel math sequences.private system ;

IN: combinators.extras

: throttle ( quot millis -- quot' )
    1000000 *
    [ [ nano-count { 0 } 2dup first-unsafe ] curry ] dip
    [ + >= [ 0 swap set-nth-unsafe call ] [ 3drop ] if ] curry
    compose ; inline