Floating docstrings are also extra text

git-svn-id: http://caml.inria.fr/svn/ocaml/version/4.02@16161 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
ocamllabs · Jun 5, 2015 · 0e515bc · 0e515bc
1 parent 779f8d0
commit 0e515bc
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/parsing/lexer.mll b/parsing/lexer.mll
@@ -708,13 +708,17 @@ and skip_sharp_bang = parse
             set_pre_extra_docstrings pre_pos (List.rev a)
         | Before(a, f, b), (NoLine | NewLine) ->
             set_post_docstrings post_pos (List.rev a);
-            set_post_extra_docstrings post_pos (List.rev b);
+            set_post_extra_docstrings post_pos
+              (List.rev_append f (List.rev b));
             set_floating_docstrings pre_pos (List.rev f);
             set_pre_extra_docstrings pre_pos (List.rev a);
             set_pre_docstrings pre_pos b
         | Before(a, f, b), BlankLine ->
             set_post_docstrings post_pos (List.rev a);
-            set_floating_docstrings pre_pos (List.rev_append f (List.rev b));
+            set_post_extra_docstrings post_pos
+              (List.rev_append f (List.rev b));
+            set_floating_docstrings pre_pos
+              (List.rev_append f (List.rev b));
             set_pre_extra_docstrings pre_pos (List.rev a)
     in
     let rec loop lines docs lexbuf =