diff options
| -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 |