diff options
| author | herbelin | 2003-04-09 17:16:25 +0000 |
|---|---|---|
| committer | herbelin | 2003-04-09 17:16:25 +0000 |
| commit | 0f1ff2ed274604985b626a422ac7d5ff742b9673 (patch) | |
| tree | bf165d5f4d0b1c6e3a608fdd5e036f564a04bdde | |
| parent | d43c0c89c0b28bdf0983c5c3e5848b55d3602818 (diff) | |
Formattage affichage
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3892 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | toplevel/vernac.ml | 2 | ||||
| -rw-r--r-- | translate/ppvernacnew.ml | 9 |
2 files changed, 6 insertions, 5 deletions
diff --git a/toplevel/vernac.ml b/toplevel/vernac.ml index 9016aa9893..4f129fb3f0 100644 --- a/toplevel/vernac.ml +++ b/toplevel/vernac.ml @@ -138,7 +138,7 @@ let rec vernac_com interpfun (loc,com) = (match com with | VernacV7only _ -> Options.v7_only := true; - if !translate_file then msgnl (pr_comments !comments) + if !translate_file then msg (pr_comments !comments) | _ -> if !translate_file then msgnl diff --git a/translate/ppvernacnew.ml b/translate/ppvernacnew.ml index 30fc771e54..00351a919b 100644 --- a/translate/ppvernacnew.ml +++ b/translate/ppvernacnew.ml @@ -258,8 +258,9 @@ let pr_vbinders pr_c l = hv 0 (prlist_with_sep spc (pr_valdecls pr_c) l) let pr_sbinders sbl = - let bl = List.map (fun (id,c) -> ([(dummy_loc,Name id)],c)) sbl in - pr_binders bl + if sbl = [] then mt () else + let bl = List.map (fun (id,c) -> ([(dummy_loc,Name id)],c)) sbl in + pr_binders bl ++ spc () let pr_onescheme (id,dep,ind,s) = pr_id id ++ str" :=" ++ spc() ++ @@ -547,8 +548,8 @@ let rec pr_vernac = function fnl() ++ str" | " ++ prlist_with_sep (fun _ -> fnl() ++ str" | ") pr_constructor l in let pr_oneind (id,indpar,s,lc) = - pr_id id ++ spc() ++ pr_sbinders indpar ++ str":" ++ spc() ++ - pr_lconstr s ++ str" :=" ++ pr_constructor_list lc in + hov 0 (pr_id id ++ spc() ++ pr_sbinders indpar ++ str":" ++ spc() ++ + pr_lconstr s ++ str" :=") ++ pr_constructor_list lc in hov 1 ((if f then str"Inductive" else str"CoInductive") ++ spc() ++ prlist_with_sep (fun _ -> fnl() ++ str"with ") pr_oneind l) |