diff options
| author |  Emilio Jesus Gallego Arias <e+git@x80.org> | 2017-01-17 15:45:43 +0100 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias <e+git@x80.org> | 2017-04-24 23:58:23 +0200 |
| commit | 84eb5cd72a015c45337a5a6070c5651f56be6e74 (patch) | |
| tree | 6a54fa82bd711f37fa21f56dcce4591f9474b55c /plugins/ltac/tauto.ml | |
| parent | bf13037e9ca39da28fb648e5488ce56ef8a1f1e2 (diff) | |
[location] Use located in tactics.
One case missing due the TACTIC EXTEND macro.
Diffstat (limited to 'plugins/ltac/tauto.ml')
| -rw-r--r-- | plugins/ltac/tauto.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/plugins/ltac/tauto.ml b/plugins/ltac/tauto.ml index dc7ee6a23..30eed08d7 100644 --- a/plugins/ltac/tauto.ml +++ b/plugins/ltac/tauto.ml @@ -264,7 +264,7 @@ let with_flags flags _ ist = let x = (loc, Id.of_string "x") in let arg = Val.Dyn (tag_tauto_flags, flags) in let ist = { ist with lfun = Id.Map.add (snd x) arg ist.lfun } in - eval_tactic_ist ist (TacArg (loc, TacCall (loc, ArgVar f, [Reference (ArgVar x)]))) + eval_tactic_ist ist (TacArg (loc, TacCall (loc, (ArgVar f, [Reference (ArgVar x)])))) let register_tauto_tactic tac name0 args = let ids = List.map (fun id -> Id.of_string id) args in |