ch>jis ( ch tuple -- jis )


Vocabulary
io.encodings.shift-jis.private

Inputs
chan object
tuplean object


Outputs
jisan object


Definition
USING: accessors assocs io.encodings kernel ;

IN: io.encodings.shift-jis.private

: ch>jis ( ch tuple -- jis )
assoc>> value-at [ encode-error ] unless* ;