do not wake up constraints in write_term (UN)

This commit is contained in:
Vítor Santos Costa 2013-03-04 09:14:43 -06:00
parent 4fcba3691a
commit ab01bb0124

View File

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