more small fixes (thanks to Markis Triska)

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1953 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2007-10-11 14:25:09 +00:00
parent 225b5e84f6
commit 1656d383d5
3 changed files with 4 additions and 6 deletions
--- a/C/utilpreds.c
+++ b/C/utilpreds.c
@@ -212,7 +212,7 @@ copy_complex_term(CELL *pt0, CELL *pt0_end, int share, int newattvs, CELL *ptf,
      *ptf++ = (CELL) ptd0;
    } else {
 #if COROUTINING
-      if (IsAttachedTerm((CELL)ptd0)) {
+      if (newattvs && IsAttachedTerm((CELL)ptd0)) {
 	/* if unbound, call the standard copy term routine */
 	struct cp_frame *bp[1];