diff options
| author |  Maxime Dénès <mail@maximedenes.fr> | 2017-11-20 11:02:21 +0100 |
|---|---|---|
| committer | Maxime Dénès <mail@maximedenes.fr> | 2017-11-20 11:02:21 +0100 |
| commit | 4db3eeaf447bb8cc3b753945eda901d13965a8a7 (patch) | |
| tree | 3aeb97151b5a8e3902f3145bfda66c0d55ae6deb /interp | |
| parent | c9f45bd9aa75cbcfcee7089b722eb5fac1832472 (diff) | |
| parent | a554519874c15d0a790082e5f15f3dc2419c6c38 (diff) | |
Merge PR #6184: [lib] Minor pending cleanup to consolidate helper function.
Diffstat (limited to 'interp')
| -rw-r--r-- | interp/constrextern.ml | 12 |
1 files changed, 1 insertions, 11 deletions
diff --git a/interp/constrextern.ml b/interp/constrextern.ml index e1cf8f196..0ce672cc8 100644 --- a/interp/constrextern.ml +++ b/interp/constrextern.ml @@ -185,18 +185,8 @@ let with_universes f = Flags.with_option print_universes f let with_meta_as_hole f = Flags.with_option print_meta_as_hole f let without_symbols f = Flags.with_option print_no_symbol f -(* XXX: Where to put this in the library? Util maybe? *) -let protect_ref r nf f x = - let old_ref = !r in - r := nf !r; - try let res = f x in r := old_ref; res - with reraise -> - let reraise = Backtrace.add_backtrace reraise in - r := old_ref; - Exninfo.iraise reraise - let without_specific_symbols l = - protect_ref inactive_notations_table + Flags.with_modified_ref inactive_notations_table (fun tbl -> IRuleSet.(union (of_list l) tbl)) (**********************************************************************) |