diff --git a/basis/multiline/multiline-docs.factor b/basis/multiline/multiline-docs.factor index d22cbdf1ae..e34b1679de 100644 --- a/basis/multiline/multiline-docs.factor +++ b/basis/multiline/multiline-docs.factor @@ -7,10 +7,13 @@ HELP: STRING: HELP: /* { $syntax "/* comment */" } -{ $description "Provides C-like comments that can span multiple lines. One caveat is that " { $snippet "/*" } " and " { $snippet "*/" } " are still tokens and must not abut the comment text itself." } -{ $code "USING: multiline ;" +{ $description "Provides C-like comments that can span multiple lines. One caveat is that " { $snippet "/*" } " and " { $snippet "*/" } " are still tokens and must not appear in the comment text itself." } +{ $examples + { $example "USING: multiline ;" "/* I think that I shall never see" " A poem lovely as a tree. */" + "" + } } ; HELP: HEREDOC: diff --git a/basis/multiline/multiline.factor b/basis/multiline/multiline.factor index 070b1da032..e8f4b02491 100644 --- a/basis/multiline/multiline.factor +++ b/basis/multiline/multiline.factor @@ -49,7 +49,7 @@ SYNTAX: STRING: 0 end (scan-multiline-string) ] if* ] [ end unexpected-eof ] if ; - + :: (parse-multiline-string) ( end-text skip-n-chars -- str ) [ lexer get