         "\"\"\""
     ] [
         "\""
-    ] if parse-long-string unescape-string ;
+    ] if (parse-multiline-string) unescape-string ;

        escaped-char-expected
    ] if ;

: next-line% ( lexer -- )
    [ rest-of-line % ]
    [ next-line "\n" % ] bi ;

: rest-begins? ( string -- ? )
    [
        lexer get [ line-text>> ] [ column>> ] bi tail-slice

        lexer get (>>column)
    ] bi ;

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

