         ] [ 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
    [
        [ [ forbid-tab " \"" member-eq? ] find-from CHAR: \" eq? [ 1 + ] when ]
        [ length or ] bi
    ] change-lexer-column ;

: still-parsing? ( lexer -- ? )

    [ 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 ? )
