diff options
| author |  Maxime Dénès <mail@maximedenes.fr> | 2016-11-03 09:45:09 +0100 |
|---|---|---|
| committer | Maxime Dénès <mail@maximedenes.fr> | 2016-11-03 09:45:09 +0100 |
| commit | c40331793c6397e6a4185d98a67543c4c1e2cb23 (patch) | |
| tree | 547c042c71a5f708a7c890a3070271b2f77074fe /grammar | |
| parent | 9c52d25ac0badc5ec6eb0eb897219e607c362e83 (diff) | |
| parent | df1720bff67889818f8b4856f29ac02540d7f756 (diff) | |
Merge branch 'v8.6' into trunk
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 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$ >> |