next-token ( sequence-parser -- string )

Vocabulary

lint.vocabs.private

Inputs

sequence-parser

an object

Outputs

string

an object

Definition

USING: kernel ;

IN: lint.vocabs.private

: next-token ( sequence-parser -- string )
    dup get-token dup comment?
    [ reject-token ] [ accept-token ] if ;