aboutsummaryrefslogtreecommitdiffhomepage
path: root/toplevel
diff options
context:
space:
mode:
authorGravatar Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr>2014-02-25 17:04:51 +0100
committerGravatar Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr>2014-02-25 17:04:51 +0100
commitd35a5022f45f1082c83891a6d0af32485a9db7d6 (patch)
tree6bc5d7eb7609167ec9267a99cb0126cc9dbb85a0 /toplevel
parent2b6282c668a6340f982a7b9b52f9686d120257e7 (diff)
Fixing printing of only_parsing notations.
Diffstat (limited to 'toplevel')
-rw-r--r--toplevel/metasyntax.ml2
1 files changed, 1 insertions, 1 deletions
diff --git a/toplevel/metasyntax.ml b/toplevel/metasyntax.ml
index 0aec4a7b7..58f8d6d4e 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