Vocabulary
bitstreams.private

Inputs
widthed1an object
widthed2an object


Outputs
widthed3an object


Definition


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