fix error messages
This commit is contained in:
parent
d33be13487
commit
4fafe10fbe
@ -309,13 +309,10 @@ copy_complex_term(CELL *pt0, CELL *pt0_end, int share, int newattvs, CELL *ptf,
|
|||||||
clean_dirty_tr(TR0);
|
clean_dirty_tr(TR0);
|
||||||
/* follow chain of multi-assigned variables */
|
/* follow chain of multi-assigned variables */
|
||||||
if (dvarsmin) {
|
if (dvarsmin) {
|
||||||
fprintf(stderr,"%ld--%ld\n", dvarsmin-H0,dvarsmax-H0);
|
|
||||||
dvarsmin += 1;
|
dvarsmin += 1;
|
||||||
do {
|
do {
|
||||||
CELL *newv;
|
CELL *newv;
|
||||||
fprintf(stderr,"mabind %ld %p %p\n", dvarsmin-H0, TR, dvarsmin+1);
|
|
||||||
Bind(dvarsmin+1, dvarsmin[1]);
|
Bind(dvarsmin+1, dvarsmin[1]);
|
||||||
fprintf(stderr,"redone %p\n", TR);
|
|
||||||
if (IsUnboundVar(dvarsmin))
|
if (IsUnboundVar(dvarsmin))
|
||||||
break;
|
break;
|
||||||
newv = CellPtr(*dvarsmin);
|
newv = CellPtr(*dvarsmin);
|
||||||
|
Reference in New Issue
Block a user