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" )