diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/errors.ml | 2 | ||||
| -rw-r--r-- | lib/errors.mli | 2 |
2 files changed, 4 insertions, 0 deletions
diff --git a/lib/errors.ml b/lib/errors.ml index 1060a8efda..026198a98a 100644 --- a/lib/errors.ml +++ b/lib/errors.ml @@ -35,6 +35,8 @@ let invalid_arg_loc (loc,s) = Loc.raise loc (Invalid_argument s) exception Error_in_file of string * (bool * string * loc) * exn exception Timeout +exception Drop +exception Quit let handle_stack = ref [] diff --git a/lib/errors.mli b/lib/errors.mli index a863c5e30e..d04ebb3fe7 100644 --- a/lib/errors.mli +++ b/lib/errors.mli @@ -38,6 +38,8 @@ val invalid_arg_loc : loc * string -> 'a val todo : string -> unit 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 |