diff options
| -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 |