diff options
| author | Maxime Dénès | 2018-02-24 09:26:03 +0100 |
|---|---|---|
| committer | Maxime Dénès | 2018-02-24 09:26:03 +0100 |
| commit | 7895d276146496648d576914aab4aded4b4a32cd (patch) | |
| tree | 24e8de17078242c1ea39e31ecfe55a1c024d0eff /plugins/ltac/coretactics.ml4 | |
| parent | 0c5f0afffd37582787f79267d9841259095b7edc (diff) | |
| parent | 9bebbb96e58b3c1b0f7f88ba2af45462eae69b0f (diff) | |
Merge PR #6745: [ast] Improve precision of Ast location recognition in serialization.
Diffstat (limited to 'plugins/ltac/coretactics.ml4')
| -rw-r--r-- | plugins/ltac/coretactics.ml4 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/plugins/ltac/coretactics.ml4 b/plugins/ltac/coretactics.ml4 index 7d2c4d0825..794a28dd43 100644 --- a/plugins/ltac/coretactics.ml4 +++ b/plugins/ltac/coretactics.ml4 @@ -346,7 +346,7 @@ let () = register_list_tactical "solve" Tacticals.New.tclSOLVE let initial_tacticals () = let idn n = Id.of_string (Printf.sprintf "_%i" n) in - let varn n = Reference (ArgVar (None, idn n)) in + let varn n = Reference (ArgVar (CAst.make (idn n))) in let iter (s, t) = Tacenv.register_ltac false false (Id.of_string s) t in List.iter iter [ "first", TacFun ([Name (idn 0)], TacML (None, (initial_entry "first", [varn 0]))); |