fix compatibility with swi: _PL_unify_atomic

2013-01-20 16:46:11 +00:00 · 2013-01-20 16:46:11 +00:00 · 00c47e0ecc
parent 0865235c48
commit 00c47e0ecc
2 changed files with 2 additions and 0 deletions
--- a/C/iopreds.c
+++ b/C/iopreds.c
--- a/C/pl-yap.c
+++ b/C/pl-yap.c
@ -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);
 }