diff options
Diffstat (limited to 'stm/stm.ml')
| -rw-r--r-- | stm/stm.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/stm/stm.ml b/stm/stm.ml index 94987bdb91..6babc3e42f 100644 --- a/stm/stm.ml +++ b/stm/stm.ml @@ -2324,7 +2324,7 @@ let interp verb (_,e as lexpr) = let print_goals = verb && match clas with | VtQuery _, _ -> false - | VtProofStep _, _ -> true + | (VtProofStep _ | VtStm (VtBack _, _)), _ -> true | _ -> not !Flags.coqtop_ui || !Flags.print_emacs in try finish ~print_goals () with e -> |