diff --git a/C/absmi.c b/C/absmi.c index 9dcf31a7b..ad4f153b6 100644 --- a/C/absmi.c +++ b/C/absmi.c @@ -8562,7 +8562,7 @@ Yap_absmi(int inp) d0 = XREG(PREG->u.xl.x); deref_head(d0, atom_x_unk); atom_x_nvar: - if (IsAtomTerm(d0)) { + if (IsAtomTerm(d0) && !IsBlob(AtomOfTerm(d0))) { PREG = NEXTOP(PREG, xl); GONext(); } @@ -8586,7 +8586,7 @@ Yap_absmi(int inp) d0 = *pt0; deref_head(d0, atom_y_unk); atom_y_nvar: - if (IsAtomTerm(d0)) { + if (IsAtomTerm(d0) && !IsBlob(AtomOfTerm(d0))) { PREG = NEXTOP(PREG, yl); GONext(); } diff --git a/C/inlines.c b/C/inlines.c index 218123292..59a563a46 100644 --- a/C/inlines.c +++ b/C/inlines.c @@ -47,7 +47,7 @@ p_atom( USES_REGS1 ) d0 = ARG1; deref_head(d0, atom_unk); atom_nvar: - if (IsAtomTerm(d0)) { + if (IsAtomTerm(d0) && !IsBlob(AtomOfTerm(d0))) { return(TRUE); } else {