 
 : advance-lexer ( n -- )
     [ lexer get ] dip [ + ] curry change-column drop ; inline
+
+: find-next-token ( ch -- i elt )
+    CHAR: \ 2array
+    [ lexer get [ column>> ] [ line-text>> ] bi ] dip
+    [ member? ] curry find-from ;
+
+: next-line% ( lexer -- )
+    [ rest-of-line % ]
+    [ next-line "\n" % ] bi ;
 
 : take-double-quotes ( -- string )
     lexer get dup current-char CHAR: " = [

        "\"\"\""
    ] [
        "\""
    ] if parse-long-string unescape-string ;

        lexer get (>>column)
    ] bi ;

: rest-of-line ( lexer -- seq )
    [ line-text>> ] [ column>> ] bi tail-slice ;

