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

yap

Browse Source
This commit is contained in:
Vitor Santos Costa
2018-12-11 12:50:52 +00:00
parent afe5780fc1
commit 7e84455117
8 changed files with 47 additions and 54 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
os/writeterm.c
View File

@@ -680,12 +680,13 @@ static Int term_to_string(USES_REGS1) {
}
return Yap_unify(ARG2, MkStringTerm(s));
} else if (!IsStringTerm(t2)) {
Yap_Error(TYPE_ERROR_STRING, t2, "string_to_ter®m/2");
Yap_Error(TYPE_ERROR_STRING, t2, "term_to_string/3");
return false;
} else {
s = StringOfTerm(t2);
}
return (rc = readFromBuffer(s, TermNil)) != 0L && Yap_unify(rc, ARG1);
yhandle_t y1 = Yap_InitHandle( t1 );
return (rc = readFromBuffer(s, TermNil)) != 0L && Yap_unify(rc, Yap_PopHandle(y1));
}
static Int term_to_atom(USES_REGS1) {