fix previous fixes

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1061 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2004-05-01 04:38:29 +00:00
parent 420bf9e92c
commit 94714907ec
3 changed files with 9 additions and 3 deletions
--- a/C/write.c
+++ b/C/write.c
@@ -782,7 +782,6 @@ Yap_plwrite(Term t, int (*mywrite) (int, int), int flags)
  wglb.keep_terms = (flags & (Use_portray_f|To_heap_f)); 
  wglb.Ignore_ops = flags & Ignore_ops_f;
  /* protect slots for portray */
-  *--ASP = MkIntTerm(0);
  writeTerm(t, 1200, 1, FALSE, &wglb);
 }