diff options
| author | herbelin | 2007-08-30 10:56:15 +0000 |
|---|---|---|
| committer | herbelin | 2007-08-30 10:56:15 +0000 |
| commit | 512e13ddd473a4b03d1094114ec2d3d0b4fc7eea (patch) | |
| tree | 650800e7f2b156f11e4d1ba2113a22a00bf5c081 | |
| parent | e72cb7cb39f69af02097e06d525031c9bb5cbd88 (diff) | |
Oubli dans commit 10102...
+ Formattage affichage arguments evars.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10104 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | contrib/interface/xlate.ml | 2 | ||||
| -rw-r--r-- | parsing/ppconstr.ml | 6 |
2 files changed, 4 insertions, 4 deletions
diff --git a/contrib/interface/xlate.ml b/contrib/interface/xlate.ml index 9c81a1c3a2..af68c7cf91 100644 --- a/contrib/interface/xlate.ml +++ b/contrib/interface/xlate.ml @@ -416,7 +416,7 @@ and (xlate_formula:Topconstr.constr_expr -> Ascent.ct_FORMULA) = function CT_coerce_ID_to_FORMULA(CT_metaid (string_of_id s)) | CPatVar (_, (true, s)) -> xlate_error "Second order variable not supported" - | CEvar (_, _) -> xlate_error "CEvar not supported" + | CEvar _ -> xlate_error "CEvar not supported" | CCoFix (_, (_, id), lm::lmi) -> let strip_mutcorec (fid, bl,arf, ardef) = CT_cofix_rec (xlate_ident fid, xlate_binder_list bl, diff --git a/parsing/ppconstr.ml b/parsing/ppconstr.ml index d6c711f95b..4ce7fbbc6b 100644 --- a/parsing/ppconstr.ml +++ b/parsing/ppconstr.ml @@ -161,14 +161,14 @@ let pr_prim_token = function | String s -> qs s let pr_evar pr n l = - str (Evd.string_of_existential n) ++ + hov 0 (str (Evd.string_of_existential n) ++ (match l with | Some l -> - pr_in_comment + spc () ++ pr_in_comment (fun l -> str"[" ++ hov 0 (prlist_with_sep pr_coma (pr ltop) l) ++ str"]") l - | None -> mt()) + | None -> mt())) let las = lapp let lpator = 100 |