heap

2019-04-04 13:27:06 +01:00
parent c04298c1d7
commit 13982dcc94
6 changed files with 49 additions and 194 deletions
--- a/C/write.c
+++ b/C/write.c
@@ -1058,7 +1058,10 @@ static void writeTerm(Term t, int p, int depth, int rinfixarg,
      writeTerm(ArgOfTerm(op, t), 999, depth + 1, FALSE, wglb, &nrwt);
      wrputc('}', wglb->stream);
      lastw = separator;
-    } else {
+    }  else {
+      if (!wglb->Ignore_ops && atom == AtomHeap) {
+	Arity = 3+2*IntegerOfTerm(ArgOfTerm(1,t));
+    }
      putAtom(atom, wglb->Quote_illegal, wglb);
      lastw = separator;
      wropen_bracket(wglb, FALSE);