From c184d5feaa9f9e3d25e843fd7758ce16286a2635 Mon Sep 17 00:00:00 2001
From: Vitor Santos Costa <vsc@dcc.fc.up.pt>
Date: Sat, 19 Mar 2011 23:21:17 +0000
Subject: [PATCH] do less writing of terms.

---
 C/write.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/C/write.c b/C/write.c
index b25d7000e..4d271acbc 100755
--- a/C/write.c
+++ b/C/write.c
@@ -1110,8 +1110,8 @@ Yap_plwrite(Term t, int (*mywrite) (int, wchar_t), int flags, int priority)
   wglb.Quote_illegal = flags & Quote_illegal_f;
   wglb.Handle_vars = flags & Handle_vars_f;
   wglb.Use_portray = flags & Use_portray_f;
-  wglb.MaxDepth = 0L;
-  wglb.MaxArgs = 0L;
+  wglb.MaxDepth = 3L;
+  wglb.MaxArgs = 3L;
   /* notice: we must have ASP well set when using portray, otherwise
      we cannot make recursive Prolog calls */
   wglb.keep_terms = (flags & (Use_portray_f|To_heap_f));