diff options
| author |  Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2016-04-16 20:04:49 +0200 |
|---|---|---|
| committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2016-06-16 17:43:28 +0200 |
| commit | 539990585352e89b3bfe426bed6ebbbaecb41d54 (patch) | |
| tree | 5428636c29930c83dae31684305108d08c54a6a9 /printing | |
| parent | 0d79eb707cf56c66a169c0f9b368d005bfec4efa (diff) | |
Simplification in ppvernac.ml.
Diffstat (limited to 'printing')
| -rw-r--r-- | printing/ppvernac.ml | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/printing/ppvernac.ml b/printing/ppvernac.ml index 1128cf0af..4b331ab8a 100644 --- a/printing/ppvernac.ml +++ b/printing/ppvernac.ml @@ -86,10 +86,6 @@ 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" @@ -266,7 +262,7 @@ module Make pr_opt (fun sc -> str ": " ++ str sc) scopt let pr_binders_arg = - pr_ne_sep spc pr_binders + pr_non_empty_arg pr_binders let pr_and_type_binders_arg bl = pr_binders_arg bl |