diff options
| author |  Guillaume Melquiond <guillaume.melquiond@inria.fr> | 2016-05-03 08:21:36 +0200 |
|---|---|---|
| committer | Guillaume Melquiond <guillaume.melquiond@inria.fr> | 2016-05-03 08:21:36 +0200 |
| commit | 24a125b779c0cf6e9b0662e122c74aa80eb1837b (patch) | |
| tree | 47790b813acf0e76bb12ef71588ba735538a7580 /printing | |
| parent | a165495c957e7a2a22a9b1704114222bf615b869 (diff) | |
Remove extraneous space in coqtop/pg output (bug #4675).
Diffstat (limited to 'printing')
| -rw-r--r-- | printing/printer.ml | 16 |
1 files changed, 6 insertions, 10 deletions
diff --git a/printing/printer.ml b/printing/printer.ml index 4e740bffe..8469490f0 100644 --- a/printing/printer.ml +++ b/printing/printer.ml @@ -381,16 +381,12 @@ let pr_transparent_state (ids, csts) = let default_pr_goal gs = let (g,sigma) = Goal.V82.nf_evar (project gs) (sig_it gs) in let env = Goal.V82.env sigma g in - let preamb,thesis,penv,pc = - mt (), mt (), - pr_context_of env sigma, - pr_goal_concl_style_env env sigma (Goal.V82.concl sigma g) - in - preamb ++ - str" " ++ hv 0 (penv ++ fnl () ++ - str (emacs_str "") ++ - str "============================" ++ fnl () ++ - thesis ++ str " " ++ pc) + let concl = Goal.V82.concl sigma g in + let goal = + pr_context_of env sigma ++ cut () ++ + str "============================" ++ cut () ++ + pr_goal_concl_style_env env sigma concl in + str " " ++ v 0 goal (* display a goal tag *) let pr_goal_tag g = |