(next) ( spot -- spot char )

Vocabulary

xml.tokenize

Inputs

spot

an object

Outputs

spot	an object
char	an object

Definition

USING: accessors io kernel ;

IN: xml.tokenize

:: (next) ( spot -- spot char )
    spot next>> :> old-next spot stream>> stream-read1
    :> new-next old-next 13 eq? [
        spot 10 >>char new-next 10 eq?
        [ spot stream>> stream-read1 >>next ]
        [ new-next >>next ] if
    ] [ spot old-next >>char new-next >>next ] if spot next>> ;
    inline