diff options
| author | Emilio Jesus Gallego Arias | 2020-07-01 13:17:49 +0200 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2020-07-01 14:00:52 +0200 |
| commit | 4a6a94d60f258bbcbf843af0c60d4c7d810750aa (patch) | |
| tree | 7e0ec3895f293e3c3f9b4d932132ff66495cd3ef /vernac/record.ml | |
| parent | b017e302f69f20fc4fc3d4088a305194f6c387fa (diff) | |
[state] Consolidate state handling in Vernacstate
After #12504 , we can encapsulate and consolidate low-level state
logic in `Vernacstate`, removing `States` which is now a stub.
There is hope to clean up some stuff regarding the handling of
low-level proof state, by moving both `Evarutil.meta_counter` and
`Evd.evar_counter_summary` into the proof state itself [obligations
state is taken care in #11836] , but this will take some time.
Diffstat (limited to 'vernac/record.ml')
| -rw-r--r-- | vernac/record.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/vernac/record.ml b/vernac/record.ml index 9d99036273..3468f5fc36 100644 --- a/vernac/record.ml +++ b/vernac/record.ml @@ -710,7 +710,7 @@ let definition_structure udecl kind ~template ~cumulative ~poly finite records = let () = check_priorities kind records in let ps, data = extract_record_data records in let ubinders, univs, auto_template, params, implpars, data = - States.with_state_protection (fun () -> + Vernacstate.System.protect (fun () -> typecheck_params_and_fields (kind = Class true) poly udecl ps data) () in let template = template, auto_template in match kind with |