diff options
| author |  Matej Kosik <matej.kosik@inria.fr> | 2016-11-05 16:29:54 +0100 |
|---|---|---|
| committer | Matej Kosik <matej.kosik@inria.fr> | 2016-11-05 16:29:54 +0100 |
| commit | 0f5e89ec54bc613f59ce971e6a95ed1161ffc37b (patch) | |
| tree | 55ab1b62b34b3ae4b4aae19f3b9030f1a4a04b67 | |
| parent | beb5875cca7648ba9963c99a68ea22494ab6329b (diff) | |
| parent | 6b99de706e37c75407373e756e24f2256b848815 (diff) | |
Merge branch 'trunk' of git+ssh://scm.gforge.inria.fr/gitroot/coq/coq into trunk
| -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 175853d50..fe864ed40 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$ >> |