quote single dots only

2020-04-15 13:45:35 -06:00
parent 16e257ea32
commit 3f971174e4
2 changed files with 4 additions and 2 deletions
--- a/src/prolog/toplevel.pl
+++ b/src/prolog/toplevel.pl
@@ -123,7 +123,7 @@
    atom(Value),
    atom_chars(Value, ValueChars),
    '$list_last_item'(ValueChars, Char),
-    Char \== '.',
+    ValueChars \== ['.'],
    '$graphic_token_char'(Char).

 '$write_eqs_and_read_input'(B, VarList) :-