diff options
| author |  letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-03-13 00:01:03 +0000 |
|---|---|---|
| committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-03-13 00:01:03 +0000 |
| commit | 5b5b83116339f9848f4ff4b60a593d52f6978442 (patch) | |
| tree | 210b5f4bca4566c0a36289f75f51d83c933040e3 /lib | |
| parent | e01597af2cd14d268927942c53dcf3aebbc2be34 (diff) | |
Vernac+Toplevel: get rid of Error_in_file
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16294 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/errors.ml | 5 | ||||
| -rw-r--r-- | lib/errors.mli | 6 |
2 files changed, 0 insertions, 11 deletions
diff --git a/lib/errors.ml b/lib/errors.ml index 0d13fcd2f..75464f2da 100644 --- a/lib/errors.ml +++ b/lib/errors.ml @@ -47,11 +47,6 @@ let todo s = prerr_string ("TODO: "^s^"\n") let user_err_loc (loc,s,strm) = Loc.raise loc (UserError (s,strm)) let invalid_arg_loc (loc,s) = Loc.raise loc (Invalid_argument s) -(* Like Exc_located, but specifies the outermost file read, the filename - associated to the location of the error, and the error itself. *) - -exception Error_in_file of string * (bool * string * Loc.t) * exn - exception Timeout exception Drop exception Quit diff --git a/lib/errors.mli b/lib/errors.mli index 5f230d4c3..c5400574b 100644 --- a/lib/errors.mli +++ b/lib/errors.mli @@ -51,12 +51,6 @@ exception Timeout exception Drop exception Quit -(** Like [Exc_located], but specifies the outermost file read, the - input buffer associated to the location of the error (or the module name - if boolean is true), and the error itself. *) - -exception Error_in_file of string * (bool * string * Loc.t) * exn - (** [register_handler h] registers [h] as a handler. When an expression is printed with [print e], it goes through all registered handles (the most |