diff options
| author | Pierre-Marie Pédrot | 2018-11-19 13:49:30 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2018-11-19 13:49:30 +0100 |
| commit | 1ca5089ebc8250073575ba0b63242a36e66a803e (patch) | |
| tree | fcb10264006d77a891080ce8d7d916456a561d89 /plugins/firstorder | |
| parent | 6498a76f9755a9c82a04f0c4e088bc809eedede5 (diff) | |
| parent | 4949b991019dd6dd845627cc03e800072bc7ed10 (diff) | |
Merge PR #8902: [ltac] Use CAst nodes in the tactic AST.
Diffstat (limited to 'plugins/firstorder')
| -rw-r--r-- | plugins/firstorder/g_ground.mlg | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/plugins/firstorder/g_ground.mlg b/plugins/firstorder/g_ground.mlg index 1128a78093..a212d13453 100644 --- a/plugins/firstorder/g_ground.mlg +++ b/plugins/firstorder/g_ground.mlg @@ -66,7 +66,7 @@ let default_intuition_tac = let name = { Tacexpr.mltac_plugin = "ground_plugin"; mltac_tactic = "auto_with"; } in let entry = { Tacexpr.mltac_name = name; mltac_index = 0 } in Tacenv.register_ml_tactic name [| tac |]; - Tacexpr.TacML (Loc.tag (entry, [])) + Tacexpr.TacML (CAst.make (entry, [])) let (set_default_solver, default_solver, print_default_solver) = Tactic_option.declare_tactic_option ~default:default_intuition_tac "Firstorder default solver" |