fix bad marked var in copy_att_var

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@439 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2002-04-11 01:43:09 +00:00
parent 3a78f26888
commit 03484b9960
2 changed files with 6 additions and 1 deletions
--- a/C/attvar.c
+++ b/C/attvar.c
@@ -123,7 +123,7 @@ CopyAttVar(CELL *orig, CELL ***to_visit_ptr, CELL *res)
      to_visit[2] = newv->Atts+2*j+1;
      to_visit[3] = (CELL *)(attv->Atts[2*j]);
      /* fool the system into thinking we had a variable there */
-      attv->Atts[2*j] = AbsAppl(H);
+      attv->Atts[2*j+1] = AbsAppl(H);
      to_visit += 4;
 #else
      to_visit[0] = attv->Atts+2*j;