diff options
| author |  letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-03-14 16:22:43 +0000 |
|---|---|---|
| committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-03-14 16:22:43 +0000 |
| commit | 3a485ed0feaccf629772494a3806881e168980d6 (patch) | |
| tree | 288b674e79d50ed196cc85b1eb1f1ded75f4bc29 /toplevel/vernac.ml | |
| parent | 4d1f1552b02fdb028466f318b9be750f64fc4c53 (diff) | |
Use Pp.msg instead of Pp.pp in -beautify (loss of text otherwise)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16302 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel/vernac.ml')
| -rw-r--r-- | toplevel/vernac.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/toplevel/vernac.ml b/toplevel/vernac.ml index f46ef8f13..faf4f1bdd 100644 --- a/toplevel/vernac.ml +++ b/toplevel/vernac.ml @@ -240,7 +240,7 @@ let pr_new_syntax loc ocom = | Some com -> Ppvernac.pr_vernac com | None -> mt() in if !beautify_file then - pp (hov 0 (comment (fst loc) ++ com ++ comment (snd loc))) + msg (hov 0 (comment (fst loc) ++ com ++ comment (snd loc))) else msg_info (hov 4 (str"New Syntax:" ++ fnl() ++ (hov 0 com))); States.unfreeze fs; |