remaining-timeout ( timeout -- timeout' )

Vocabulary

concurrency.conditions

Inputs

timeout

an object

Outputs

timeout'

an object

Definition

USING: accessors kernel math math.order system ;

IN: concurrency.conditions

: remaining-timeout ( timeout -- timeout' )
    dup deadline? [ nanos>> nano-count - 0 max ] when ;