loops

2019-02-11 09:28:46 +00:00
parent 3fdc260ee6
commit ac60bee30d
3 changed files with 460 additions and 369 deletions
--- a/C/write.c
+++ b/C/write.c
@@ -1105,7 +1105,7 @@ void Yap_plwrite(Term t, StreamDesc *mywrite, int max_depth, int flags,
  wglb.lw = separator;

   if ((flags & Handle_cyclics_f) ){
-      Yap_CyclesInTerm(t, 3, NULL PASS_REGS);
+     t = Yap_CyclesInTerm(t PASS_REGS);
   }

   /* protect slots for portray */