diff options
| author | Gaëtan Gilbert | 2020-07-02 14:36:13 +0200 |
|---|---|---|
| committer | Gaëtan Gilbert | 2020-07-02 14:36:13 +0200 |
| commit | e04fbe4eb39434f50cf6bdf19f6c4be46b73ef44 (patch) | |
| tree | 8dba5a55cdcbac1921cb08868809d6aa8f2a1279 /plugins | |
| parent | 2fc9f27449ed21f2cbb440b4684a56622cb2d064 (diff) | |
| parent | 4a6a94d60f258bbcbf843af0c60d4c7d810750aa (diff) | |
Merge PR #12620: [state] Consolidate state handling into Vernacstate
Reviewed-by: SkySkimmer
Reviewed-by: gares
Diffstat (limited to 'plugins')
| -rw-r--r-- | plugins/funind/gen_principle.ml | 2 | ||||
| -rw-r--r-- | plugins/ltac/tacentries.ml | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/plugins/funind/gen_principle.ml b/plugins/funind/gen_principle.ml index 167cf37026..dcca694200 100644 --- a/plugins/funind/gen_principle.ml +++ b/plugins/funind/gen_principle.ml @@ -70,7 +70,7 @@ let build_newrecursive lnameargsardef = CErrors.user_err ~hdr:"Function" (Pp.str "Body of Function must be given") in - States.with_state_protection (List.map f) lnameargsardef + Vernacstate.System.protect (List.map f) lnameargsardef in (recdef, rec_impls) diff --git a/plugins/ltac/tacentries.ml b/plugins/ltac/tacentries.ml index e6c59f446d..f8c25d5dd0 100644 --- a/plugins/ltac/tacentries.ml +++ b/plugins/ltac/tacentries.ml @@ -489,7 +489,7 @@ let register_ltac local ?deprecation tacl = in (* STATE XXX: Review what is going on here. Why does this needs protection? Why is not the STM level protection enough? Fishy *) - let defs = States.with_state_protection defs () in + let defs = Vernacstate.System.protect defs () in let iter (def, tac) = match def with | NewTac id -> Tacenv.register_ltac false local id tac ?deprecation; |