fix-cr ( decoder c -- c' )

Vocabulary

io.encodings.private

Inputs

decoder	an object
c	an object

Outputs

c'

an object

Definition

USING: accessors kernel ;

IN: io.encodings.private

: fix-cr ( decoder c -- c' )
    over cr>>
    [ over cr- dup 10 eq? [ drop decode1 ] [ nip ] if ] [ nip ]
    if ; inline