+: advance-same-line ( lexer text -- )
+ length [ + ] curry change-column drop ;
+
+PRIVATE>
+
+: parse-multiline-string ( end-text -- str )
+ lexer get 1 (parse-multiline-string) ;
+
+SYNTAX: /* "*/" parse-multiline-string drop ;
+
+SYNTAX: (( "))" parse-multiline-string drop ;
+
+SYNTAX: [[ "]]" parse-multiline-string suffix! ;
+SYNTAX: [=[ "]=]" parse-multiline-string suffix! ;
+SYNTAX: [==[ "]==]" parse-multiline-string suffix! ;
+SYNTAX: [===[ "]===]" parse-multiline-string suffix! ;
+SYNTAX: [====[ "]====]" parse-multiline-string suffix! ;
+SYNTAX: [=====[ "]=====]" parse-multiline-string suffix! ;
+SYNTAX: [======[ "]======]" parse-multiline-string suffix! ;