diff options
Diffstat (limited to 'plugins/ltac/rewrite.ml')
| -rw-r--r-- | plugins/ltac/rewrite.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/plugins/ltac/rewrite.ml b/plugins/ltac/rewrite.ml index 1f75f88d4..40484bfea 100644 --- a/plugins/ltac/rewrite.ml +++ b/plugins/ltac/rewrite.ml @@ -1969,7 +1969,7 @@ let make_tactic name = let loc = Loc.ghost in let tacpath = Libnames.qualid_of_string name in let tacname = Qualid (loc, tacpath) in - TacArg (loc, TacCall (loc, tacname, [])) + TacArg (loc, TacCall (Loc.tag ~loc (tacname, []))) let add_morphism_infer glob m n = init_setoid (); |