diff options
author | 2011-05-13 17:57:41 +0000 | |
---|---|---|
committer | 2011-05-13 17:57:41 +0000 | |
commit | edcf0d8b8bff399443ddf4cd436185c33bf59829 (patch) | |
tree | b95d6dd4ae5ccae0114b2fa27c00bcd89f445f78 /dev/top_printers.ml | |
parent | 1b906116b43f5975fef7bb6f4dfb9589cfe3d6ee (diff) |
A new mechanism to handle errors.
Instead of the monolitic Cerrors, I introduce a lightweight Errors module
whose error message can be expanded by module introducing exceptions.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14119 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'dev/top_printers.ml')
-rw-r--r-- | dev/top_printers.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/dev/top_printers.ml b/dev/top_printers.ml index 681cb0634..547ca0475 100644 --- a/dev/top_printers.ml +++ b/dev/top_printers.ml @@ -414,7 +414,7 @@ let _ = (fun () -> in_current_context constr_display c) | _ -> failwith "Vernac extension: cannot occur") with - e -> Pp.pp (Cerrors.explain_exn e) + e -> Pp.pp (Errors.print e) let _ = extend_vernac_command_grammar "PrintConstr" None [[GramTerminal "PrintConstr"; @@ -431,7 +431,7 @@ let _ = (fun () -> in_current_context print_pure_constr c) | _ -> failwith "Vernac extension: cannot occur") with - e -> Pp.pp (Cerrors.explain_exn e) + e -> Pp.pp (Errors.print e) let _ = extend_vernac_command_grammar "PrintPureConstr" None [[GramTerminal "PrintPureConstr"; |