time-unless-recursing ( quot word -- )

Vocabulary

wordtimer

Inputs

quot	an object
word	an object

Outputs

None

Definition

USING: kernel ;

IN: wordtimer

: time-unless-recursing ( quot word -- )
    dup called-recursively? not [ timed-call ] [ drop call ] if
    ; inline