do less writing of terms.

This commit is contained in:
Vitor Santos Costa 2011-03-19 23:21:17 +00:00
parent 97f46d5aa9
commit c184d5feaa

View File

@ -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));