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

2020-04-18 14:13:41 -06:00
parent d5d635e50f
commit f96e694ff8
1 changed files with 1 additions and 0 deletions
--- 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])
    ).