handle Z=[X,Z], X=y(X)

2019-02-17 23:19:26 +00:00
parent 6a3c4bda79
commit 79d2330e71
6 changed files with 39 additions and 49 deletions
--- a/C/write.c
+++ b/C/write.c
@@ -1115,7 +1115,8 @@ void Yap_plwrite(Term t, StreamDesc *mywrite, int max_depth, int flags,

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