diff options
-rw-r--r-- | library/goptions.ml | 6 | ||||
-rw-r--r-- | pretyping/detyping.ml | 2 |
2 files changed, 4 insertions, 4 deletions
diff --git a/library/goptions.ml b/library/goptions.ml index 858ebbfc8..550ded685 100644 --- a/library/goptions.ml +++ b/library/goptions.ml @@ -105,10 +105,10 @@ module MakeTable = let print_table table_name printer table = pp (str table_name ++ (hov 0 - (if MySet.is_empty table then str "None" ++ fnl () + (if MySet.is_empty table then str " None" ++ fnl () else MySet.fold - (fun a b -> printer a ++ spc () ++ b) - table (mt ()) ++ fnl ()))) + (fun a b -> spc () ++ printer a ++ b) + table (mt ()) ++ str "." ++ fnl ()))) class table_of_A () = object diff --git a/pretyping/detyping.ml b/pretyping/detyping.ml index 545366a70..2db867fc5 100644 --- a/pretyping/detyping.ml +++ b/pretyping/detyping.ml @@ -85,7 +85,7 @@ module PrintingCasesIf = PrintingInductiveMake (struct let encode = encode_bool let field = "If" - let title = "Types leading to pretty-printing of Cases using a `if' form: " + let title = "Types leading to pretty-printing of Cases using a `if' form:" let member_message s b = str "Cases on elements of " ++ s ++ str |