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 /parsing/ppconstr.ml | |
| 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
Diffstat (limited to 'parsing/ppconstr.ml')
| -rw-r--r-- | parsing/ppconstr.ml | 6 |
1 files changed, 3 insertions, 3 deletions
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 |