diff options
| author | Hugo Herbelin | 2016-11-20 15:35:05 +0100 |
|---|---|---|
| committer | Maxime Dénès | 2016-12-02 15:21:48 +0100 |
| commit | 1c5e311d6a92deb66ba412c56516a4b71a513e01 (patch) | |
| tree | effa4f9a55d7bd259f39b480f5f983aeb116d44f | |
| parent | 4e551415f20ad696c319b32b349e4499c2505388 (diff) | |
Fixing printing of "only parsing" in abbreviations.
| -rw-r--r-- | printing/ppvernac.ml | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/printing/ppvernac.ml b/printing/ppvernac.ml index 3494ad006f..be15879184 100644 --- a/printing/ppvernac.ml +++ b/printing/ppvernac.ml @@ -1015,7 +1015,10 @@ module Make (keyword "Notation" ++ spc () ++ pr_lident id ++ spc () ++ prlist_with_sep spc pr_id ids ++ str":=" ++ pr_constrarg c ++ pr_syntax_modifiers - (match compat with None -> [] | Some v -> [SetCompatVersion v])) + (match compat with + | None -> [] + | Some Flags.Current -> [SetOnlyParsing] + | Some v -> [SetCompatVersion v])) ) | VernacDeclareImplicits (q,[]) -> return ( |