record ( spot char -- spot )

Vocabulary

xml.tokenize

Inputs

spot	an object
char	an object

Outputs

spot

an object

Definition

USING: accessors kernel math ;

IN: xml.tokenize

: record ( spot char -- spot )
    over char>> [
        10 eq?
        [ [ 1 + ] change-line -1 ] [ dup column>> 1 + ] if
        >>column
    ] [ drop ] if ;