diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-10-30 12:43:46 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-10-30 12:43:46 +0100 |
| commit | 0d06d69ffc0436ed326bf3e4c684dc17a4d85dde (patch) | |
| tree | cccf18616a208b88c9c9cf81219ecc3b22f3a31d /grammar | |
| parent | b5d88066acbcebf598474e0d854b16078f4019ce (diff) | |
Fix spurious OCaml Warning 56 in TACTIC EXTEND macros.
Diffstat (limited to 'grammar')
| -rw-r--r-- | grammar/tacextend.mlp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/grammar/tacextend.mlp b/grammar/tacextend.mlp index a1b3f4f25..683a7e2f7 100644 --- a/grammar/tacextend.mlp +++ b/grammar/tacextend.mlp @@ -48,7 +48,7 @@ let make_fun_clauses loc s l = let map c = GramCompat.make_fun loc [make_clause c] in mlexpr_of_list map l -let get_argt e = <:expr< match $e$ with [ Genarg.ExtraArg tag -> tag | _ -> assert False ] >> +let get_argt e = <:expr< (fun e -> match e with [ Genarg.ExtraArg tag -> tag | _ -> assert False ]) $e$ >> let rec mlexpr_of_symbol = function | Ulist1 s -> <:expr< Extend.Ulist1 $mlexpr_of_symbol s$ >> |