diff options
| author | Hugo Herbelin | 2016-04-13 00:35:23 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2016-04-27 21:55:47 +0200 |
| commit | 094ed756fcef1ac5118dc5134a7369252efec933 (patch) | |
| tree | d23af7d2f4a2f1be7c22ee453807c4cc0d14547f | |
| parent | c90d538c8763cb90fab6071cf00236f00b3c33a2 (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 4056115785..6670aa41ab 100644 --- a/printing/ppvernac.ml +++ b/printing/ppvernac.ml @@ -518,7 +518,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) -> |