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

rational trees

Browse Source
This commit is contained in:
Vítor Santos Costa
2019-02-02 22:33:18 +00:00
parent fa96ffa932
commit 38610c0b0d
5 changed files with 139 additions and 96 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
C/write.c
View File

@@ -1084,7 +1084,7 @@ void Yap_plwrite(Term t, StreamDesc *mywrite, int max_depth, int flags,
struct rewind_term rwt;
yhandle_t sls = Yap_CurrentSlot();
int lvl = push_text_stack();
if (t == 0)
return;
if (!mywrite) {
@@ -1109,9 +1109,9 @@ void Yap_plwrite(Term t, StreamDesc *mywrite, int max_depth, int flags,
wglb.Write_strings = flags & BackQuote_String_f;
// if (!(flags & Ignore_cyclics_f) && false)
{
t = Yap_CheckLoops(t, 1);
t = Yap_CheckLoops(t, 1, NULL, NULL PASS_REGS);
}
/* protect slots for portray */
/* protect slots for portray */
writeTerm(t, priority, 1, FALSE, &wglb, &rwt);
if (flags & New_Line_f) {
if (flags & Fullstop_f) {