fix wrong ! in debugger

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@457 b08c6af1-5177-4d33-ba66-4b1c6b8b522a

C/tracer.c

@@ -113,11 +113,9 @@ low_level_trace(yap_low_level_port port, PredEntry *pred, CELL *args)
 
   vsc_count++;
   /* if (vsc_count < 3829100) return;*/
-  /*
-  if (vsc_count == 4376) {
+  if (vsc_count == 656) {
     printf("Here I go\n");
   }
-  */
   /* if (vsc_count > 500000) exit(0); */
   /* if (gc_calls < 1) return;*/
 #if defined(__GNUC__)

C/unify.c

@@ -1414,7 +1414,7 @@ p_arg(void)
 	save_hb();
 	if ((Int)d0 <= 0 ||
 	    (Int)d0 > ArityOfFunctor((Functor) d1) ||
-	    IUnify((CELL)(pt0+d0), ARG3) == FALSE) {
+	    IUnify(pt0[d0], ARG3) == FALSE) {
 	  /* don't complain here for Prolog compatibility 
 	  if ((Int)d0 <= 0) {
 	    Error(DOMAIN_ERROR_NOT_LESS_THAN_ZERO,