diff options
| author | Gaëtan Gilbert | 2019-07-03 13:54:37 +0200 |
|---|---|---|
| committer | Gaëtan Gilbert | 2019-07-03 13:54:37 +0200 |
| commit | 6f828ca5b9a28df977e0e6c93c76fa73ae0f48dc (patch) | |
| tree | 995f179ed08ea9437373f4091740471e955d9633 | |
| parent | 465ee008d15bb1fb0428aef513b8c3fd3456327a (diff) | |
| parent | 9a6687294866bc9fb6f9f3fd37842b59668f85b1 (diff) | |
Merge PR #10472: [vernac] Fix bad merge which resulted in code using wrong module name.
Reviewed-by: SkySkimmer
| -rw-r--r-- | vernac/vernacentries.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/vernac/vernacentries.ml b/vernac/vernacentries.ml index 793ba72fd3..681605cc31 100644 --- a/vernac/vernacentries.ml +++ b/vernac/vernacentries.ml @@ -2684,7 +2684,7 @@ and interp_control ?proof ~st v = match v with let before_univs = Global.universes () in let pstack = interp_expr ?proof ~atts ~st cmd in if before_univs == Global.universes () then pstack - else Option.map (Lemmas.Stack.map_top_pstate ~f:Proof_global.update_global_env) pstack + else Option.map (Vernacstate.LemmaStack.map_top_pstate ~f:Proof_global.update_global_env) pstack | { v=VernacFail v } -> with_fail ~st (fun () -> interp_control ?proof ~st v); st.Vernacstate.lemmas |