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

write fix

Browse Source
This commit is contained in:
Vitor Santos Costa
2018-05-26 12:02:39 +01:00
parent 4fe08fd82a
commit eeb8f7c6a1
5 changed files with 154 additions and 166 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
C/write.c
View File

@@ -1,4 +1,3 @@
/*************************************************************************
* *
* YAP Prolog *
@@ -706,7 +705,6 @@ static void write_list(Term t, int direction, int depth,
while (1) {
writeTerm(HeadOfTerm(t), 999, depth + 1, FALSE,
wglb);
Yap_DebugPlWriteln(TermNil);
t = Yap_GetFromHandle(h);
t = TailOfTerm(t);
if (IsVarTerm(t))
@@ -1072,7 +1070,7 @@ void Yap_plwrite(Term t, StreamDesc *mywrite, int max_depth, int flags,
struct write_globs wglb;
yhandle_t sls = Yap_CurrentSlot();
int lvl = push_text_stack();
t = Deref(t);
if (t == 0)
return;
if (!mywrite) {