diff options
| author | Hugo Herbelin | 2015-07-03 21:25:15 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2015-08-02 19:13:51 +0200 |
| commit | 27fb880ab6924ec20ce44aeaeb8d89592c1b91cd (patch) | |
| tree | 32a8cb8b17e7e6628ac6c9707abf316cdb02bf06 | |
| parent | fe340267b0c2082b3af8bc965f7bc0e86d1c3c2c (diff) | |
Failing when reaching end of file with unterminated comment when
parsing Make (project) file.
| -rw-r--r-- | ide/project_file.ml4 | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/ide/project_file.ml4 b/ide/project_file.ml4 index f7279f9cfe..152f76cc0e 100644 --- a/ide/project_file.ml4 +++ b/ide/project_file.ml4 @@ -28,6 +28,7 @@ let rec parse_string = parser and parse_string2 = parser | [< ''"' >] -> "" | [< 'c; s >] -> (String.make 1 c)^(parse_string2 s) + | [< >] -> raise Parsing_error and parse_skip_comment = parser | [< ''\n'; s >] -> s | [< 'c; s >] -> parse_skip_comment s |