diff options
| author | Hugo Herbelin | 2018-08-21 15:26:57 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2018-09-02 13:23:27 +0200 |
| commit | 0e7ff6359c144c5ab4d7e16334c8ddc0d3078125 (patch) | |
| tree | f1e0ff6d53462dbb33b6ad40f314b728038419d1 /parsing | |
| parent | a62ab4903d61b9a3c2e8725ee0e6354c0a073348 (diff) | |
Fixing #7867 (class error message tries to print a "fun" with no binder).
Diffstat (limited to 'parsing')
| -rw-r--r-- | parsing/g_constr.mlg | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/parsing/g_constr.mlg b/parsing/g_constr.mlg index 49e1cd7ec9..7cb5af787b 100644 --- a/parsing/g_constr.mlg +++ b/parsing/g_constr.mlg @@ -249,7 +249,7 @@ GRAMMAR EXTEND Gram record_field_declaration: [ [ id = global; bl = binders; ":="; c = lconstr -> - { (id, mkCLambdaN ~loc bl c) } ] ] + { (id, if bl = [] then c else mkCLambdaN ~loc bl c) } ] ] ; binder_constr: [ [ "forall"; bl = open_binders; ","; c = operconstr LEVEL "200" -> |