check-length ( x -- x )

Vocabulary

progress-bars

Inputs

x

an object

Outputs

x

an object

Definition

USING: combinators.short-circuit kernel math ;

IN: progress-bars

: check-length ( x -- x )
    dup { [ 0 > ] [ integer? ] } 1&& [ invalid-length ] unless ;