diff options
Diffstat (limited to 'tactics/tacinterp.ml')
| -rw-r--r-- | tactics/tacinterp.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/tacinterp.ml b/tactics/tacinterp.ml index 6c2ed52877..2b9e6d1d84 100644 --- a/tactics/tacinterp.ml +++ b/tactics/tacinterp.ml @@ -75,7 +75,7 @@ let catching_error call_trace fail e = | Some inner_trace -> inner_trace, e | None -> [], e in - if List.is_empty call_trace & List.is_empty inner_trace then fail e + if List.is_empty call_trace && List.is_empty inner_trace then fail e else begin assert (Errors.noncritical e); (* preserved invariant *) let new_trace = inner_trace @ call_trace in |