diff options
| author |  Maxime Dénès <mail@maximedenes.fr> | 2017-11-20 10:58:36 +0100 |
|---|---|---|
| committer | Maxime Dénès <mail@maximedenes.fr> | 2017-11-20 10:58:36 +0100 |
| commit | c9f45bd9aa75cbcfcee7089b722eb5fac1832472 (patch) | |
| tree | 7acba7a518e81be25454b6ac756fb3b4dc05f1d3 /plugins | |
| parent | 921ee76930bf84b9b3e413cc9c8f5f519c0b06ad (diff) | |
| parent | dc664b3b0c6f6f5eeba0c1092efc3f4537cdf657 (diff) | |
Merge PR #6183: [plugins] Prepare plugin API for functional handling of state.
Diffstat (limited to 'plugins')
| -rw-r--r-- | plugins/funind/indfun_common.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/plugins/funind/indfun_common.ml b/plugins/funind/indfun_common.ml index e9102e9c8..61d207b95 100644 --- a/plugins/funind/indfun_common.ml +++ b/plugins/funind/indfun_common.ml @@ -550,11 +550,11 @@ type tcc_lemma_value = | Value of constr | Not_needed -(* We only "purify" on exceptions *) +(* We only "purify" on exceptions. XXX: What is this doing here? *) let funind_purify f x = - let st = Vernacentries.freeze_interp_state `No in + let st = Vernacstate.freeze_interp_state `No in try f x with e -> let e = CErrors.push e in - Vernacentries.unfreeze_interp_state st; + Vernacstate.unfreeze_interp_state st; Exninfo.iraise e |