double-be ( stream byte -- stream char )

Vocabulary

io.encodings.utf16.private

Inputs

stream	an object
byte	an object

Outputs

stream	an object
char	an object

Definition

USING: io kernel ;

IN: io.encodings.utf16.private

: double-be ( stream byte -- stream char )
    over stream-read1 swap append-nums ;