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

Merge branch 'master' of ssh://yap.git.sourceforge.net/gitroot/yap/yap-6.3

Browse Source
This commit is contained in:
Vitor Santos Costa 2013-03-05 19:06:44 -06:00
commit 5568236479
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
os/pl-write.c
View File

@ -184,10 +184,9 @@ bind_varnames(term_t varnames ARG_LD)
t1 = ArgOfTerm(1, tl); t1 = ArgOfTerm(1, tl);
t2 = ArgOfTerm(2, tl); t2 = ArgOfTerm(2, tl);
tv = Yap_MkApplTerm(LOCAL_FunctorVar, 1, &t1); tv = Yap_MkApplTerm(LOCAL_FunctorVar, 1, &t1);
if (!IsVarTerm(t2)) { if (IsVarTerm(t2)) {
return FALSE; Bind_and_Trail(VarOfTerm(t2), tv);
} }
Bind_and_Trail(VarOfTerm(t2), tv);
t = TailOfTerm(t); t = TailOfTerm(t);
} }
return TRUE; return TRUE;