diff options
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 0d13fcd2f9..75464f2da0 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 5f230d4c3b..c5400574b8 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 |