write-halfword ( stream halfword -- )

Vocabulary

io.encodings.shift-jis.private

Inputs

stream	an object
halfword	an object

Outputs

None

Definition

USING: byte-arrays io kernel math.bitwise ;

IN: io.encodings.shift-jis.private

: write-halfword ( stream halfword -- )
    h>b/b swap 2byte-array swap stream-write ;