correctly print [] functors (#1189)

diff --git a/src/heap_print.rs b/src/heap_print.rs
index e1c4e214efb151177157e56ac73271d72ba5c72f..f7ba606ca8d7be9fffcbfc880ba20f1f88a8a84d 100644 (file)
--- a/src/heap_print.rs
+++ b/src/heap_print.rs
@@ -1358,7 +1358,7 @@ impl<'a, Outputter: HCValueOutputter> HCPrinter<'a, Outputter> {
 
         read_heap_cell!(addr,
             (HeapCellValueTag::Atom, (name, arity)) => {
-                if name == atom!("[]") {
+                if name == atom!("[]") && arity == 0 {
                     if !self.at_cdr("") {
                         append_str!(self, "[]");
                     }