Merge pull request #276 from lpw25/fix-pr6972

Fix PR6972
2015-11-03 14:26:54 +01:00 · 2015-11-03 14:26:54 +01:00 · 0a33eb4da5
parent af584b9f1b bbce6c5768
commit 0a33eb4da5
1 changed files with 3 additions and 1 deletions
--- a/parsing/lexer.mll
+++ b/parsing/lexer.mll
@ -245,7 +245,9 @@ let add_comment com =
  comment_list := com :: !comment_list

 let add_docstring_comment ds =
-  let com = (Docstrings.docstring_body ds, Docstrings.docstring_loc ds) in
+  let com =
+    ("*" ^ Docstrings.docstring_body ds, Docstrings.docstring_loc ds)
+  in
    add_comment com

 let comments () = List.rev !comment_list