fix wrong ! in debugger

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@457 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2002-04-26 19:15:21 +00:00
parent 238598e41f
commit a23bff9b6b
3 changed files with 12 additions and 13 deletions
--- a/C/unify.c
+++ b/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,