diff options
| author |  Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2016-04-27 22:13:03 +0200 |
|---|---|---|
| committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2016-04-27 22:13:03 +0200 |
| commit | 142978009a2585a1af82b3081720d680028c2108 (patch) | |
| tree | 20d46dbf2b45bfad53af2a9873839cd4d67befab /printing | |
| parent | 82b97b07fc56dbe03109e2f38f50849dce1d69d5 (diff) | |
Revert "Simplification in ppvernac.ml."
This reverts commit d82c87e40a85be184ede1f9a2fde04dd8f48bb74.
Diffstat (limited to 'printing')
| -rw-r--r-- | printing/ppvernac.ml | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/printing/ppvernac.ml b/printing/ppvernac.ml index 17926055e..bf7d75851 100644 --- a/printing/ppvernac.ml +++ b/printing/ppvernac.ml @@ -86,6 +86,10 @@ module Make let sep = fun _ -> spc() let sep_v2 = fun _ -> str"," ++ spc() + let pr_ne_sep sep pr = function + [] -> mt() + | l -> sep() ++ pr l + let pr_set_entry_type = function | ETName -> str"ident" | ETReference -> str"global" @@ -267,7 +271,7 @@ module Make pr_opt (fun sc -> str ": " ++ str sc) scopt let pr_binders_arg = - pr_non_empty_arg pr_binders + pr_ne_sep spc pr_binders let pr_and_type_binders_arg bl = pr_binders_arg bl |