new Atts code.

This commit is contained in:
Vitor Santos Costa
2010-03-08 09:23:58 +00:00
parent d48be6406b
commit 34ca485e42
8 changed files with 46 additions and 141 deletions

View File

@@ -254,7 +254,7 @@ copy_complex_term(CELL *pt0, CELL *pt0_end, int share, int newattvs, CELL *ptf,
struct cp_frame *bp[1];
if (dvars == NULL) {
dvars = (CELL *)DelayTop();
dvars = H0;
}
if (ptd0 < dvars) {
*ptf++ = (CELL) ptd0;