(skip-blank) ( col line -- newcol )

Vocabulary

lexer.private

Inputs

col	an object
line	an object

Outputs

newcol

an object

Definition

USING: kernel lexer sequences ;

IN: lexer.private

: (skip-blank) ( col line -- newcol )
    [ [ forbid-tab 32 eq? not ] find-from drop ] [ length or ]
    bi ;