From 124d924ff51a0f781284fed8771a66886d636a1c Mon Sep 17 00:00:00 2001
From: Mark Thom <markjordanthom@gmail.com>
Date: Tue, 14 Apr 2020 23:25:15 -0600
Subject: [PATCH] write [a,b,c] correctly with write_canonical (#349)

---
 src/prolog/heap_print.rs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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;
             }
-- 
2.54.0