diff options
| author | Hugo Herbelin | 2016-04-13 00:35:23 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2016-06-16 17:43:28 +0200 |
| commit | 2a58c6bdf236108e6e6a8a3bc03629c99611576e (patch) | |
| tree | 0c909d3ba777735f93d38c050818b6312307dc6b | |
| parent | 99a7a6d28d1eda5ddcce4855cce1cf381fe21f33 (diff) | |
Fixing printing of Polymorphic/Monomorphic.
| -rw-r--r-- | printing/ppvernac.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/printing/ppvernac.ml b/printing/ppvernac.ml index 28f6f3f3f9..bcd38253f4 100644 --- a/printing/ppvernac.ml +++ b/printing/ppvernac.ml @@ -514,7 +514,7 @@ module Make match v with | VernacPolymorphic (poly, v) -> let s = if poly then keyword "Polymorphic" else keyword "Monomorphic" in - return (s ++ pr_vernac v) + return (s ++ spc () ++ pr_vernac v) | VernacProgram v -> return (keyword "Program" ++ spc() ++ pr_vernac v) | VernacLocal (local, v) -> |