aboutsummaryrefslogtreecommitdiff
path: root/ltac/tacinterp.ml
diff options
context:
space:
mode:
Diffstat (limited to 'ltac/tacinterp.ml')
-rw-r--r--ltac/tacinterp.ml1
1 files changed, 1 insertions, 0 deletions
diff --git a/ltac/tacinterp.ml b/ltac/tacinterp.ml
index 649764da37..3716de2518 100644
--- a/ltac/tacinterp.ml
+++ b/ltac/tacinterp.ml
@@ -1256,6 +1256,7 @@ and eval_tactic ist tac : unit Proofview.tactic = match tac with
strbrk "There is an \"Info\" command to replace it." ++fnl () ++
strbrk "Some specific verbose tactics may also exist, such as info_eauto.");
eval_tactic ist tac
+ | TacSelect (sel, tac) -> Tacticals.New.tclSELECT sel (interp_tactic ist tac)
(* For extensions *)
| TacAlias (loc,s,l) ->
let (ids, body) = Tacenv.interp_alias s in