check-percent ( x -- x )

Vocabulary

progress-bars

Inputs

x

an object

Outputs

x

an object

Definition

USING: kernel math.order ;

IN: progress-bars

: check-percent ( x -- x )
    dup 0 1 between? [ invalid-percent ] unless ;