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

name(X,Y) is unbound

Browse Source
This commit is contained in:
Vítor Santos Costa 2015-09-29 23:05:33 +01:00
parent 059e38d8f0
commit 5c05b3be45
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
C/atomic.c
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);