diff options
| -rw-r--r-- | tactics/class_tactics.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/tactics/class_tactics.ml b/tactics/class_tactics.ml index 09cf4b049..80f47c680 100644 --- a/tactics/class_tactics.ml +++ b/tactics/class_tactics.ml @@ -490,6 +490,7 @@ let hints_tac hints = let then_list (second : atac) (sk : (auto_result, 'a) sk) : (auto_result, 'a) sk = let rec aux s (acc : autogoal list list) fk = function | (gl,info) :: gls -> + Control.check_for_interrupt (); (match info.is_evar with | Some ev when Evd.is_defined s ev -> aux s acc fk gls | _ -> |