diff options
| -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 17926055e8..bf7d758515 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 |