multline: fix docs for /*.
parent
a7e3a2b024
commit
03a8290da9
|
@ -7,10 +7,13 @@ HELP: STRING:
|
||||||
|
|
||||||
HELP: /*
|
HELP: /*
|
||||||
{ $syntax "/* comment */" }
|
{ $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." }
|
{ $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." }
|
||||||
{ $code "USING: multiline ;"
|
{ $examples
|
||||||
|
{ $example "USING: multiline ;"
|
||||||
"/* I think that I shall never see"
|
"/* I think that I shall never see"
|
||||||
" A poem lovely as a tree. */"
|
" A poem lovely as a tree. */"
|
||||||
|
""
|
||||||
|
}
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
HELP: HEREDOC:
|
HELP: HEREDOC:
|
||||||
|
|
|
@ -49,7 +49,7 @@ SYNTAX: STRING:
|
||||||
0 end (scan-multiline-string)
|
0 end (scan-multiline-string)
|
||||||
] if*
|
] if*
|
||||||
] [ end unexpected-eof ] if ;
|
] [ end unexpected-eof ] if ;
|
||||||
|
|
||||||
:: (parse-multiline-string) ( end-text skip-n-chars -- str )
|
:: (parse-multiline-string) ( end-text skip-n-chars -- str )
|
||||||
[
|
[
|
||||||
lexer get
|
lexer get
|
||||||
|
|
Loading…
Reference in New Issue