diff options
| author | Hugo Herbelin | 2016-04-13 00:34:07 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2016-04-27 21:55:47 +0200 |
| commit | c90d538c8763cb90fab6071cf00236f00b3c33a2 (patch) | |
| tree | 7e023a8827b37bcd6eb0c743c3791416edf60be5 | |
| parent | 92cbd4ed5f9679e46da16e83a2f920449c699a4e (diff) | |
Fixing printing of Arguments.
| -rw-r--r-- | printing/ppvernac.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/printing/ppvernac.ml b/printing/ppvernac.ml index d5934e1217..4056115785 100644 --- a/printing/ppvernac.ml +++ b/printing/ppvernac.ml @@ -1036,7 +1036,7 @@ module Make spc() ++ pr_br imp max (pr_if k (str"!") ++ pr_name id ++ pr_s s) ++ aux (n-1) tl in prlist_with_sep (fun () -> str", ") (aux nargs) impl ++ - if not (List.is_empty mods) then str" : " else str"" ++ + (if not (List.is_empty mods) then str" : " else str"") ++ prlist_with_sep (fun () -> str", " ++ spc()) (function | `ReductionDontExposeCase -> keyword "simpl nomatch" | `ReductionNeverUnfold -> keyword "simpl never" |