diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

stop writing at very long lists.

Browse Source
This commit is contained in:
Vitor Santos Costa 2009-06-01 22:54:56 -05:00
parent 256d322f43
commit a2a8f8e40e
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
C/write.c
View File

@ -533,6 +533,11 @@ write_list(Term t, int direction, int depth, struct write_globs *wglb, struct re
} else { } else {
do_jump = (direction > 0); do_jump = (direction > 0);
} }
if (wglb->MaxDepth != 0 && depth > wglb->MaxDepth) {
wrputc('|', wglb->writewch);
putAtom(Atom3Dots, wglb->Quote_illegal, wglb->writewch);
return;
}
wrputc(',', wglb->writewch); wrputc(',', wglb->writewch);
lastw = separator; lastw = separator;
direction = ndirection; direction = ndirection;