fix bug in add array element

make agc on by default. git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1911 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2007-07-01 00:14:35 +00:00
parent cd23c60c45
commit 1f2d769971
4 changed files with 28 additions and 5 deletions
--- a/C/arrays.c
+++ b/C/arrays.c
@@ -2013,9 +2013,8 @@ p_add_to_array_element(void)
 	return(FALSE);
      }
 #ifdef MULTI_ASSIGNMENT_VARIABLES
-      t3 = MkIntegerTerm(IntegerOfTerm(t3)+1);
-      MaBind(ptr, t3);
-      return(Yap_unify(ARG4,t3));
+      MaBind(ptr, ta);
+      return(Yap_unify(ARG4,ta));
 #else
      Yap_Error(SYSTEM_ERROR,t2,"add_to_array_element");
      return(FALSE);