Commit 94de7b51 authored by POTTIER Francois's avatar POTTIER Francois

Tiny cleanup.

parent 55ff8ae9
......@@ -497,7 +497,7 @@ let read_messages filename : run or_comment list =
match SentenceParser.entry SentenceLexer.lex lexbuf with
| exception Parsing.Parse_error ->
Error.error
(Positions.one (Lexing.lexeme_start_p lexbuf))
[Positions.cpos lexbuf]
"ill-formed sentence."
| sentences ->
(* In principle, we should now find a segment of whitespace
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment