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/heapgc.c
+++ b/C/heapgc.c
@@ -1022,7 +1022,7 @@ check_global(void) {
 	       ArityOfFunctor((Functor)ccurr));*/
 	vars[gc_func]++;
      }
-      else if (IsUnboundVar((CELL)current)) vars[gc_var]++;
+      else if (IsUnboundVar(current)) vars[gc_var]++;
      else vars[gc_ref]++;
    } else if (IsApplTerm(ccurr)) {
      /*      printf("%p: f->%p\n",current,RepAppl(ccurr)); */