diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-06-12 15:30:28 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-06-12 15:30:28 +0000 |
| commit | a885a2148e4d45606c654145db5d859c4d6a223b (patch) | |
| tree | 5feb549d45868e5eab7762891d0e7dc46f4e7760 /lib | |
| parent | d30267620672a939f56fb9d6e161070bbb1112a6 (diff) | |
Fixing spelling: pr_coma -> pr_comma
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13119 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/rtree.ml | 4 | ||||
| -rw-r--r-- | lib/util.ml | 4 | ||||
| -rw-r--r-- | lib/util.mli | 2 |
3 files changed, 5 insertions, 5 deletions
diff --git a/lib/rtree.ml b/lib/rtree.ml index b1c934506..e7934c45e 100644 --- a/lib/rtree.ml +++ b/lib/rtree.ml @@ -173,11 +173,11 @@ let rec pp_tree prl t = | Node(lab,[||]) -> hov 2 (str"("++prl lab++str")") | Node(lab,v) -> hov 2 (str"("++prl lab++str","++brk(1,0)++ - Util.prvect_with_sep Util.pr_coma (pp_tree prl) v++str")") + Util.prvect_with_sep Util.pr_comma (pp_tree prl) v++str")") | Rec(i,v) -> if Array.length v = 0 then str"Rec{}" else if Array.length v = 1 then hov 2 (str"Rec{"++pp_tree prl v.(0)++str"}") else hov 2 (str"Rec{"++int i++str","++brk(1,0)++ - Util.prvect_with_sep Util.pr_coma (pp_tree prl) v++str"}") + Util.prvect_with_sep Util.pr_comma (pp_tree prl) v++str"}") diff --git a/lib/util.ml b/lib/util.ml index 42cdc2bf2..ea5da9e3c 100644 --- a/lib/util.ml +++ b/lib/util.ml @@ -1194,7 +1194,7 @@ let pr_spc = spc let pr_fnl = fnl let pr_int = int let pr_str = str -let pr_coma () = str "," ++ spc () +let pr_comma () = str "," ++ spc () let pr_semicolon () = str ";" ++ spc () let pr_bar () = str "|" ++ spc () let pr_arg pr x = spc () ++ pr x @@ -1242,7 +1242,7 @@ let rec pr_sequence elem = function let pr_enum pr l = let c,l' = list_sep_last l in - prlist_with_sep pr_coma pr l' ++ + prlist_with_sep pr_comma pr l' ++ (if l'<>[] then str " and" ++ spc () else mt()) ++ pr c let pr_vertical_list pr = function diff --git a/lib/util.mli b/lib/util.mli index 43dd43913..8c811d439 100644 --- a/lib/util.mli +++ b/lib/util.mli @@ -316,7 +316,7 @@ val pr_spc : unit -> std_ppcmds val pr_fnl : unit -> std_ppcmds val pr_int : int -> std_ppcmds val pr_str : string -> std_ppcmds -val pr_coma : unit -> std_ppcmds +val pr_comma : unit -> std_ppcmds val pr_semicolon : unit -> std_ppcmds val pr_bar : unit -> std_ppcmds val pr_arg : ('a -> std_ppcmds) -> 'a -> std_ppcmds |