     [ lexer check-instance [ column>> ] [ line-text>> ] bi ] prepose
     keep column<< ; inline
 
+: forbid-tab ( c -- c )
+    [ CHAR: \t eq? [ "[space]" "[tab]" unexpected ] when ] keep ; inline
+
 <PRIVATE
 
 : shebang? ( lexer -- lexer ? )

        ] [ f ] if
    ] [ f ] if ; inline

: forbid-tab ( c -- c )
    [ CHAR: \t eq? [ "[space]" "[tab]" unexpected ] when ] keep ; inline

PRIVATE>

SBUF""
URL"google.com"

GENERIC: skip-blank ( lexer -- )



M: lexer skip-word
    [
        2dup nth CHAR: \" eq? [ drop 1 + ] [
            [ [ forbid-tab CHAR: \s eq? ] find-from drop ]
            [ length or ] bi
        ] if
    ] change-lexer-column ;

: still-parsing? ( lexer -- ? )
