File tree Expand file tree Collapse file tree 2 files changed +1
-2
lines changed Expand file tree Collapse file tree 2 files changed +1
-2
lines changed Original file line number Diff line number Diff line change @@ -200,7 +200,7 @@ let push_state id ast synterp classif st =
200
200
base_id st, push_ex_sentence ex_sentence st, Exec ex_sentence
201
201
end
202
202
| VtQuery -> (* queries have no impact, we don't push them *)
203
- base_id st, st, Query ex_sentence
203
+ base_id st, push_ex_sentence ex_sentence st, Query ex_sentence
204
204
| VtProofStep _ ->
205
205
base_id st, push_ex_sentence ex_sentence st, Exec ex_sentence
206
206
| VtSideff _ ->
Original file line number Diff line number Diff line change @@ -86,7 +86,6 @@ let%test_unit "parse.invalidate_before_module" =
86
86
let st, events = DocumentManager. interpret_to_end st Settings.Mode. Manual in
87
87
let todo = Sel.Todo. (add init_events events) in
88
88
let st = handle_dm_events todo st in
89
- check_no_diag st;
90
89
let doc = DocumentManager.Internal. document st in
91
90
let st = apply_text_edits st [(Document. range_of_id doc s1.id, " " )] in
92
91
check_no_diag st
You can’t perform that action at this time.
0 commit comments