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

fix PL_is_list

Browse Source
This commit is contained in:
Vitor Santos Costa 2012-10-08 18:26:40 +01:00
parent daf9f589b9
commit b0ddda1fde
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
library/dialect/swi/fli/swi.c
View File

@ -1799,7 +1799,7 @@ X_API int PL_is_list(term_t ts)
{
CACHE_REGS
YAP_Term t = Yap_GetFromSlot(ts PASS_REGS);
return Yap_IsListTerm(t);
return !IsVarTerm(t) && (t == TermNil || IsPairTerm(t));
}
X_API int
@ -2316,7 +2316,7 @@ X_API int PL_next_solution(qid_t qi)
if (setjmp(LOCAL_execution->env))
return 0;
if (qi->state == 0) {
result = YAP_RunGoal(qi->g);
result = YAP_RunGoal(qi->g);
} else {
LOCAL_AllowRestart = qi->open;
result = YAP_RestartGoal();