From 2a239725f493e643d0f26455293e6ca295f4dc92 Mon Sep 17 00:00:00 2001
From: Cyprien Mangin
Date: Thu, 14 Jun 2018 16:29:19 +0200
Subject: Workaround to handle non-value arguments in tactics.

Although the fix is not a proper one, it seems to solve
every instance of #2800 that could be tested.
---
 plugins/ltac/tacinterp.ml | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'plugins')

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 =
-- 
cgit v1.2.3