let display_error err cloc =
let (file, line) = cloc
in match string_of_error err with
| "" -> ()
| msg -> print_string ("\nAt line " ^ (string_of_int line) ^ " in file " ^ file ^ ":\n\t" ^
msg ^ "\n" )