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

error handling

Browse Source
This commit is contained in:
Vítor Santos Costa 2013-06-20 10:48:00 -05:00
parent 5a57611749
commit 0726597812
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
os/pl-write.c
View File

@ -179,9 +179,13 @@ bind_varnames(term_t varnames ARG_LD)
Term tv, t2, t1; Term tv, t2, t1;
if (!IsApplTerm(tl)) return FALSE; if (!IsApplTerm(tl)) return FALSE;
if ((f = FunctorOfTerm(tl)) != FunctorEq) if ((f = FunctorOfTerm(tl)) != FunctorEq) {
return FALSE; return FALSE;
}
t1 = ArgOfTerm(1, tl); t1 = ArgOfTerm(1, tl);
if (IsVarTerm(t1)) {
return PL_error(NULL, 0, "variable_names", ERR_INSTANTIATION, 0, t1);
}
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)) {