more fixes to threes,

2019-02-11 18:10:31 +00:00
parent ac60bee30d
commit 2c80e33c6a
2 changed files with 31 additions and 30 deletions
--- a/C/write.c
+++ b/C/write.c
@@ -1103,13 +1103,16 @@ void Yap_plwrite(Term t, StreamDesc *mywrite, int max_depth, int flags,
  wglb.MaxDepth = 0;
  wglb.MaxArgs = 0 ;
  wglb.lw = separator;
-
+  Term tp;
+  
   if ((flags & Handle_cyclics_f) ){
-     t = Yap_CyclesInTerm(t PASS_REGS);
+     tp = Yap_CyclesInTerm(t PASS_REGS);
+   } else {
+     tp = t;
   }

   /* protect slots for portray */
-  writeTerm(t, priority, 1, false, &wglb, &rwt);
+  writeTerm(tp, priority, 1, false, &wglb, &rwt);
  if (flags & New_Line_f) {
    if (flags & Fullstop_f) {
      wrputc('.', wglb.stream);