From: Mark Thom <markjordanthom@gmail.com>
Date: Wed, 15 Apr 2020 05:25:15 +0000 (-0600)
Subject: write [a,b,c] correctly with write_canonical (#349)
X-Git-Tag: v0.8.123~132^2~10
X-Git-Url: https://git.sagredo.dev/?a=commitdiff_plain;h=93a0ab7f0a0fd338e6d08aa00dc8e4a2d0b1d0e8;p=scryer-prolog.git

write [a,b,c] correctly with write_canonical (#349)
---

diff --git a/src/prolog/heap_print.rs b/src/prolog/heap_print.rs
index 186a2128..ed9b9859 100644
--- a/src/prolog/heap_print.rs
+++ b/src/prolog/heap_print.rs
@@ -1083,7 +1083,7 @@ impl<'a, Outputter: HCValueOutputter> HCPrinter<'a, Outputter> {
         let at_cdr = self.at_cdr(",");
 
         if !at_cdr && Addr::EmptyList == end_addr {
-            if !self.machine_st.flags.double_quotes.is_codes() {
+            if self.machine_st.flags.double_quotes.is_chars() && !self.ignore_ops {
                 self.print_proper_string(buf, max_depth);
                 return;
             }