IsUnboundVar should check addresses

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1144 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2004-09-18 14:03:42 +00:00
parent 2144835fe5
commit 2e2df1a64f
7 changed files with 26 additions and 20 deletions
--- a/C/dbase.c
+++ b/C/dbase.c
@@ -2373,7 +2373,7 @@ p_still_variant(void)

    while ((link = *lp++)) {
      Term t2 = Deref(old_h[link-1]);
-      if (IsUnboundVar((CELL)(dbt->Contents+(link-1)))) {
+      if (IsUnboundVar(dbt->Contents+(link-1))) {
 	if (IsVarTerm(t2)) {
 	  Yap_unify(t2,MkAtomTerm(AtomFoundVar));
 	} else {