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

do not wake up constraints in write_term (UN)

Browse Source
This commit is contained in:
Vítor Santos Costa 2013-03-04 09:14:43 -06:00
parent 4fcba3691a
commit ab01bb0124
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
os/pl-write.c
View File

@ -184,8 +184,10 @@ 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 (!Yap_unify(t2, tv)) if (!IsVarTerm(t2)) {
return FALSE; return FALSE;
}
Bind_and_Trail(VarOfTerm(t2), tv);
t = TailOfTerm(t); t = TailOfTerm(t);
} }
return TRUE; return TRUE;