check-widthed-bits ( widthed n -- widthed n )

Vocabulary

bitstreams.private

Inputs

widthed	an object
n	an object

Outputs

widthed	an object
n	an object

Definition

USING: accessors combinators.short-circuit kernel math ;

IN: bitstreams.private

: check-widthed-bits ( widthed n -- widthed n )
    2dup { [ nip 0 < ] [ [ #bits>> ] dip < ] } 2||
    [ not-enough-widthed-bits ] when ;