(skip-word) ( col line -- newcol )

Vocabulary

lexer.private

Inputs

col	an object
line	an object

Outputs

newcol

an object

Definition

USING: kernel lexer math sequences ;

IN: lexer.private

: (skip-word) ( col line -- newcol )
    [
        [ forbid-tab " \"" member-eq? ] find-from 34 eq?
        [ 1 + ] when
    ] [ length or ] bi ;