diff options
| author | Pierre-Marie Pédrot | 2018-06-15 14:15:40 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2018-06-15 14:15:40 +0200 |
| commit | f2e2d1d9f00ab731bd2bbe1dd57d685ac5024204 (patch) | |
| tree | 21d11d821734adcdbccf9927089da9f84a367e28 /plugins | |
| parent | 31e13998542941040343cb81787a1d7c865d5b65 (diff) | |
| parent | 2a239725f493e643d0f26455293e6ca295f4dc92 (diff) | |
Merge PR #7813: Workaround for #2800: handling non-value arguments in tactics.
Diffstat (limited to 'plugins')
| -rw-r--r-- | plugins/ltac/tacinterp.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/plugins/ltac/tacinterp.ml b/plugins/ltac/tacinterp.ml index 8a8f9e71aa..04dd7d6e99 100644 --- a/plugins/ltac/tacinterp.ml +++ b/plugins/ltac/tacinterp.ml @@ -1049,8 +1049,7 @@ and eval_tactic ist tac : unit Proofview.tactic = match tac with push_trace(loc,call) ist >>= fun trace -> Profile_ltac.do_profile "eval_tactic:2" trace (catch_error_tac trace (interp_atomic ist t)) - | TacFun _ | TacLetIn _ -> assert false - | TacMatchGoal _ | TacMatch _ -> assert false + | TacFun _ | TacLetIn _ | TacMatchGoal _ | TacMatch _ -> interp_tactic ist tac | TacId [] -> Proofview.tclLIFT (db_breakpoint (curr_debug ist) []) | TacId s -> let msgnl = |