diff options
| author |  Matthieu Sozeau <mattam@mattam.org> | 2016-11-07 14:47:15 +0100 |
|---|---|---|
| committer | Matthieu Sozeau <mattam@mattam.org> | 2016-11-07 14:47:15 +0100 |
| commit | 1f36cdefd841526f804bd2dd51c1d88309333376 (patch) | |
| tree | 9d13ea499cfebf6285eccc6d8b434bcf5ea9e41b /ltac | |
| parent | a4cecc13cde3239d6a86f98ba6bba0e4554306bd (diff) | |
Fixes to compile with ocaml 4.01
Diffstat (limited to 'ltac')
| -rw-r--r-- | ltac/extratactics.ml4 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ltac/extratactics.ml4 b/ltac/extratactics.ml4 index d9780dcc8..8ae95c315 100644 --- a/ltac/extratactics.ml4 +++ b/ltac/extratactics.ml4 @@ -316,7 +316,7 @@ let project_hint pri l2r r = in let ctx = Evd.universe_context_set sigma in let c = Declare.declare_definition ~internal:Declare.InternalTacticRequest id (c,ctx) in - let info = Vernacexpr.({hint_priority = pri; hint_pattern = None}) in + let info = {Vernacexpr.hint_priority = pri; hint_pattern = None} in (info,false,true,Hints.PathAny, Hints.IsGlobRef (Globnames.ConstRef c)) let add_hints_iff l2r lc n bl = |