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/heap_print.rs
+++ b/src/prolog/heap_print.rs
@@ -442,7 +442,9 @@ fn non_quoted_token<Iter: Iterator<Item = char>>(mut iter: Iter) -> bool {
    if let Some(c) = iter.next() {
        if small_letter_char!(c) {
            iter.all(|c| alpha_numeric_char!(c))
-        } else if c != '.' && graphic_token_char!(c) {
+        } else if c == '.' {
+            iter.next().is_some()
+        } else if graphic_token_char!(c) {
            non_quoted_graphic_token(iter, c)
        } else if semicolon_char!(c) {
            iter.next().is_none()