multline: fix docs for /*.

diff --git a/basis/multiline/multiline-docs.factor b/basis/multiline/multiline-docs.factor
index d22cbdf1ae1263e571708d0d165f21282de7d61b..e34b1679de3544caa39b05ec14c7fcb9f3343e9e 100644 (file)
--- 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 070b1da03266aadab73fab954dd1163619fb4085..e8f4b02491def88297c02fd5117df718a7364299 100644 (file)
--- 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