[ (parse-here) ] "" make but-last
lexer get next-line ;
-: STRING:
+SYNTAX: STRING:
CREATE-WORD
parse-here 1quotation
- (( -- string )) define-inline ; parsing
+ (( -- string )) define-inline ;
<PRIVATE
change-column drop
] "" make ;
-: <"
- "\">" parse-multiline-string parsed ; parsing
+SYNTAX: <"
+ "\">" parse-multiline-string parsed ;
-: <'
- "'>" parse-multiline-string parsed ; parsing
+SYNTAX: <'
+ "'>" parse-multiline-string parsed ;
-: {'
- "'}" parse-multiline-string parsed ; parsing
+SYNTAX: {'
+ "'}" parse-multiline-string parsed ;
-: {"
- "\"}" parse-multiline-string parsed ; parsing
+SYNTAX: {"
+ "\"}" parse-multiline-string parsed ;
-: /* "*/" parse-multiline-string drop ; parsing
+SYNTAX: /* "*/" parse-multiline-string drop ;