diff options
| author |  Jason Gross <jgross@mit.edu> | 2017-12-12 13:52:42 -0500 |
|---|---|---|
| committer | Jason Gross <jgross@mit.edu> | 2018-04-02 15:35:13 -0400 |
| commit | d9a7712b231f92882c2dccdc62d24ea3109abb0e (patch) | |
| tree | ce23d71c6e79f5d9a5f38ea42c648f70ee13b94e /plugins/ltac | |
| parent | f29f8f80c8ad94576c7a36f3f638866c208338a0 (diff) | |
Fix #6404 - Print tactics called by ML tactics
Diffstat (limited to 'plugins/ltac')
| -rw-r--r-- | plugins/ltac/tactic_debug.ml | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/plugins/ltac/tactic_debug.ml b/plugins/ltac/tactic_debug.ml index e55b49fb4..57a11d947 100644 --- a/plugins/ltac/tactic_debug.ml +++ b/plugins/ltac/tactic_debug.ml @@ -391,13 +391,10 @@ let explain_ltac_call_trace last trace loc = let skip_extensions trace = let rec aux = function - | (_,Tacexpr.LtacNameCall f as tac) :: _ - when Tacenv.is_ltac_for_ml_tactic f -> [tac] - | (_,Tacexpr.LtacNotationCall _ as tac) :: (_,Tacexpr.LtacMLCall _) :: _ -> + | (_,Tacexpr.LtacNotationCall _ as tac) :: (_,Tacexpr.LtacMLCall _) :: tail -> (* Case of an ML defined tactic with entry of the form <<"foo" args>> *) (* see tacextend.mlp *) - [tac] - | (_,Tacexpr.LtacMLCall _ as tac) :: _ -> [tac] + tac :: aux tail | t :: tail -> t :: aux tail | [] -> [] in List.rev (aux (List.rev trace)) |