emit-char ( dialect buffer -- ch buffer' )

Vocabulary

io.encodings.utf7

Inputs

dialect	an object
buffer	an object

Outputs

ch	an object
buffer'	an object

Definition

USING: kernel sequences ;

IN: io.encodings.utf7

: emit-char ( dialect buffer -- ch buffer' )
    [ fill-buffer ] [ nip unclip swap ] if-empty ;