Bug fixes!

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@964 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2004-01-29 13:37:10 +00:00
parent c6827310f5
commit cacc407677
16 changed files with 77 additions and 58 deletions
--- a/C/write.c
+++ b/C/write.c
@@ -779,7 +779,7 @@ Yap_plwrite(Term t, int (*mywrite) (int, int), int flags)
  wglb.MaxList = max_list;
  /* notice: we must have ASP well set when using portray, otherwise
     we cannot make recursive Prolog calls */
-  wglb.keep_terms = wglb.Use_portray;
+  wglb.keep_terms = (flags & (Use_portray_f|To_heap_f)); 
  wglb.Ignore_ops = flags & Ignore_ops_f;
  writeTerm(t, 1200, 1, FALSE, &wglb);
 }