|widthed ( widthed1 widthed2 -- widthed3 )

Vocabulary

bitstreams.private

Inputs

widthed1	an object
widthed2	an object

Outputs

widthed3

an object

Definition

USING: accessors bitstreams math ;

IN: bitstreams.private

:: |widthed ( widthed1 widthed2 -- widthed3 )
    widthed1 bits>> :> bits1 widthed1 #bits>> :> #bits1 widthed2
    bits>> :> bits2 widthed2 #bits>> :> #bits2 bits1 #bits2
    shift bits2 bitor #bits1 #bits2 + <widthed> ;