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 /kernel | |
| 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 'kernel')
| -rw-r--r-- | kernel/mod_subst.ml | 2 | ||||
| -rw-r--r-- | kernel/univ.ml | 6 |
2 files changed, 4 insertions, 4 deletions
diff --git a/kernel/mod_subst.ml b/kernel/mod_subst.ml index c967bf1ba..d0f855a32 100644 --- a/kernel/mod_subst.ml +++ b/kernel/mod_subst.ml @@ -274,7 +274,7 @@ let debug_pr_subst sub = let f (s1,s2,s3) = hov 2 (str s1 ++ spc () ++ str "|-> " ++ str s2 ++ spc () ++ str "[" ++ str s3 ++ str "]") in - str "{" ++ hov 2 (prlist_with_sep pr_coma f l) ++ str "}" + str "{" ++ hov 2 (prlist_with_sep pr_comma f l) ++ str "}" let subst_mp0 sub mp = (* 's like subst *) diff --git a/kernel/univ.ml b/kernel/univ.ml index ca0d8fbd0..50de9a054 100644 --- a/kernel/univ.ml +++ b/kernel/univ.ml @@ -78,9 +78,9 @@ let pr_uni = function str "(" ++ pr_uni_level u ++ str ")+1" | Max (gel,gtl) -> str "max(" ++ hov 0 - (prlist_with_sep pr_coma pr_uni_level gel ++ - (if gel <> [] & gtl <> [] then pr_coma () else mt ()) ++ - prlist_with_sep pr_coma + (prlist_with_sep pr_comma pr_uni_level gel ++ + (if gel <> [] & gtl <> [] then pr_comma () else mt ()) ++ + prlist_with_sep pr_comma (fun x -> str "(" ++ pr_uni_level x ++ str ")+1") gtl) ++ str ")" |