|widthed ( widthed1 widthed2 -- widthed3 )

Vocabulary
bitstreams.private

Inputs
widthed1an object
widthed2an object
Outputs
widthed3an 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> ;