stream-write-num ( num stream -- )

Vocabulary

io.encodings.iso2022.private

Inputs

num	an object
stream	an object

Outputs

None

Definition

USING: byte-arrays io kernel math math.bitwise ;

IN: io.encodings.iso2022.private

: stream-write-num ( num stream -- )
    over 256 >=
    [ [ h>b/b swap 2byte-array ] dip stream-write ]
    [ stream-write1 ] if ;