widthed>bytes ( widthed -- bytes widthed )

Vocabulary

bitstreams.private

Inputs

widthed

an object

Outputs

bytes	an object
widthed	an object

Definition

USING: accessors bitstreams kernel sequences ;

IN: bitstreams.private

: widthed>bytes ( widthed -- bytes widthed )
    [ 8 split-widthed dup zero-widthed? not ] [ swap bits>> ]
    B{ } produce-as nip swap ;