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

    [ lexer check-instance [ column>> ] [ line-text>> ] bi ] prepose
    keep column<< ; inline

<PRIVATE

: shebang? ( lexer -- lexer ? )

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

PRIVATE>

GENERIC: skip-blank ( lexer -- )

