check-length ( length/f -- length/f )

Vocabulary

bare.private

Inputs

length/f

an object

Outputs

length/f

an object

Definition

USING: bare kernel math.bitwise math.order ;

IN: bare.private

: check-length ( length/f -- length/f )
    dup
    [ 1 64 on-bits between? [ invalid-length ] unless ] when* ;