widthed-bits ( widthed n -- bits )

Vocabulary

bitstreams.private

Inputs

widthed	an object
n	an object

Outputs

bits

an object

Definition

USING: accessors bitstreams kernel math ;

IN: bitstreams.private

: widthed-bits ( widthed n -- bits )
    check-widthed-bits [ [ bits>> ] [ #bits>> ] bi ] dip
    [ - neg shift ] keep <widthed> ;