fix compatibility with swi: _PL_unify_atomic
This commit is contained in:
parent
0865235c48
commit
00c47e0ecc
0
C/iopreds.c
Normal file → Executable file
0
C/iopreds.c
Normal file → Executable file
@ -301,6 +301,8 @@ int
|
||||
_PL_unify_atomic(term_t t, PL_atomic_t a)
|
||||
{
|
||||
GET_LD
|
||||
if (IsApplTerm(a) || IsAtomTerm(a))
|
||||
return Yap_unify(Yap_GetFromSlot(t PASS_REGS), a);
|
||||
return PL_unify_atom(t, a);
|
||||
}
|
||||
|
||||
|
Reference in New Issue
Block a user