bracket graphic token chars in toplevel.pl (#357)

diff --git a/src/prolog/toplevel.pl b/src/prolog/toplevel.pl
index 27bf71f5ff2b44a00e354df0294915ef3d074ac5..a3c3f1afd330f0603de3f1deb78c30e31bce1f78 100644 (file)
--- a/src/prolog/toplevel.pl
+++ b/src/prolog/toplevel.pl
@@ -65,6 +65,7 @@
              false),
     (  EqPrec < FPrec -> true
     ;  '$quoted_token'(F) -> true
+    ;  atom_length(F, 1), '$graphic_token_char'(F) -> true
     ;  EqPrec == FPrec,
        memberchk(EqSpec, [fx,xfx,yfx])
     ).