diff options
author | 2016-07-03 18:54:06 +0200 | |
---|---|---|
committer | 2016-07-03 18:54:06 +0200 | |
commit | e278d031a1d9a7bf3de463d3d415065299c99395 (patch) | |
tree | ddd3a123e1887a9fa4634af7559bc7bb67b0cc25 /toplevel/metasyntax.ml | |
parent | d7664c0530edd196d52e9fd8a4b925dbfefd1b9b (diff) | |
parent | 3ce70f21a18cc19e720e8ac54b93652527881942 (diff) |
Merge branch 'cerrors-cclosure' into trunk
Was PR#226: CErrors & CClosure
Diffstat (limited to 'toplevel/metasyntax.ml')
-rw-r--r-- | toplevel/metasyntax.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/toplevel/metasyntax.ml b/toplevel/metasyntax.ml index aa6601a7d..a1edb7139 100644 --- a/toplevel/metasyntax.ml +++ b/toplevel/metasyntax.ml @@ -8,7 +8,7 @@ open Pp open Flags -open Errors +open CErrors open Util open Names open Constrexpr @@ -184,7 +184,7 @@ let parse_format ((loc, str) : lstring) = else error "Empty format." with reraise -> - let (e, info) = Errors.push reraise in + let (e, info) = CErrors.push reraise in let info = Loc.add_loc info loc in iraise (e, info) @@ -1057,7 +1057,7 @@ let with_lib_stk_protection f x = let fs = Lib.freeze `No in try let a = f x in Lib.unfreeze fs; a with reraise -> - let reraise = Errors.push reraise in + let reraise = CErrors.push reraise in let () = Lib.unfreeze fs in iraise reraise |