Commit b326afe5 authored by POGODALLA Sylvain's avatar POGODALLA Sylvain

No commit message

No commit message
parent 0163b09e
......@@ -157,7 +157,7 @@ let error_msg e input_file =
| Type_error (er,(s,e)) -> type_error_to_string er,Some (compute_comment_for_position s e)
| Env_error (er,(s,e)) -> env_error_to_string er,Some (compute_comment_for_position s e)
| Lexicon_error (er,(s,e)) -> lexicon_error_to_string er,Some (compute_comment_for_position s e)
| System_error s -> s,None in
| System_error s -> Printf.sprintf "System error: \"%s\"" s,None in
match location_msg with
| None -> msg
| Some loc -> Printf.sprintf "File \"%s\", %s\n%s" input_file loc msg
......
......@@ -454,7 +454,11 @@ sig_entries :
{
let parse_data ?(override=false) ?(output=false) filename env =
let in_ch = try open_in filename with | Sys_error s -> raise (Error.Error (Error.System_error s)) in
let in_ch =
try
open_in filename
with
| Sys_error s -> raise (Error.Error (Error.System_error s)) in
let lexbuf = Lexing.from_channel in_ch in
let actual_env = if env=E.empty then None else Some (Env env) in
try
......
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