name(X,Y) is unbound

This commit is contained in:
Vítor Santos Costa 2015-09-29 23:05:33 +01:00
parent 059e38d8f0
commit 5c05b3be45

View File

@ -287,6 +287,10 @@ name( USES_REGS1 )
if (NewT) if (NewT)
return Yap_unify(NewT, ARG2); return Yap_unify(NewT, ARG2);
// else // else
} else if (IsVarTerm(t)){
Yap_Error(INSTANTIATION_ERROR,t,
"name/2");
return FALSE;
} else { } else {
Term at = Yap_ListToAtomic( t PASS_REGS ); Term at = Yap_ListToAtomic( t PASS_REGS );
if (at) return Yap_unify(at, ARG1); if (at) return Yap_unify(at, ARG1);