diff options
| author | Emilio Jesus Gallego Arias | 2019-06-25 03:40:53 +0200 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2019-07-02 16:12:16 +0200 |
| commit | 8db5fed73ce71dd7c469d5633682dddd8148b65a (patch) | |
| tree | 665453fcf3cbcdf7658da3391625044368c2ebef /lib | |
| parent | 20254d7fa38c99608042a878ec0c2975f9887ce6 (diff) | |
[declare] Cleanup on imports, move exception.
We cleanup a few imports on Declare, and indeed we find a suspicious
exception `AlreadyDeclared` present in `CErrors` where it should not
be there.
We move it to `Declare`, waiting for more investigation.
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/cErrors.ml | 3 | ||||
| -rw-r--r-- | lib/cErrors.mli | 3 |
2 files changed, 0 insertions, 6 deletions
diff --git a/lib/cErrors.ml b/lib/cErrors.ml index a42504701f..8406adfe18 100644 --- a/lib/cErrors.ml +++ b/lib/cErrors.ml @@ -39,9 +39,6 @@ let user_err ?loc ?hdr strm = Loc.raise ?loc (UserError (hdr, strm)) let invalid_arg ?loc s = Loc.raise ?loc (Invalid_argument s) -exception AlreadyDeclared of Pp.t (* for already declared Schemes *) -let alreadydeclared pps = raise (AlreadyDeclared(pps)) - exception Timeout let handle_stack = ref [] diff --git a/lib/cErrors.mli b/lib/cErrors.mli index 51ec5c907a..8580622095 100644 --- a/lib/cErrors.mli +++ b/lib/cErrors.mli @@ -41,9 +41,6 @@ val user_err : ?loc:Loc.t -> ?hdr:string -> Pp.t -> 'a (** Main error raising primitive. [user_err ?loc ?hdr pp] signals an error [pp] with optional header and location [hdr] [loc] *) -exception AlreadyDeclared of Pp.t -val alreadydeclared : Pp.t -> 'a - val invalid_arg : ?loc:Loc.t -> string -> 'a (** [todo] is for running of an incomplete code its implementation is |