diff options
| author | Pierre-Marie Pédrot | 2014-02-25 17:04:51 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2014-02-25 17:04:51 +0100 |
| commit | d35a5022f45f1082c83891a6d0af32485a9db7d6 (patch) | |
| tree | 6bc5d7eb7609167ec9267a99cb0126cc9dbb85a0 | |
| parent | 2b6282c668a6340f982a7b9b52f9686d120257e7 (diff) | |
Fixing printing of only_parsing notations.
| -rw-r--r-- | toplevel/metasyntax.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/toplevel/metasyntax.ml b/toplevel/metasyntax.ml index 0aec4a7b72..58f8d6d4e5 100644 --- a/toplevel/metasyntax.ml +++ b/toplevel/metasyntax.ml @@ -934,7 +934,7 @@ let is_not_printable onlyparse noninjective = function if not onlyparse && noninjective then let () = msg_warning (strbrk "This notation will not be used for printing as it is not reversible.") in true - else false + else onlyparse let find_precedence lev etyps symbols = match symbols with |