fix unmatched nested comment edge case

reasonml · Apr 24, 2016 · 3e562cd · 3e562cd
1 parent 787d227
commit 3e562cd
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/reason_lexer.mll b/src/reason_lexer.mll
@@ -581,8 +581,8 @@ and comment = parse
           let loc = Location.curr lexbuf in
           raise (Error (Unmatched_nested_comment loc, start_loc))
         (* a multiline comment nested within a line comment *)
-        | (_, Some _) ->
-          comment_start_loc := [];
+        | (_ :: l, Some _) ->
+          comment_start_loc := l;
           store_lexeme lexbuf;
           comment lexbuf;
        }