Vocabulary
xml.tokenize

Inputs
spotan object


Outputs
spotan object
charan object


Definition


:: (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