make sure to put TR correctly (fixes copying DB terms with att vars #148)
This commit is contained in:
parent
58cac4c8eb
commit
d637451bd6
1
C/exec.c
1
C/exec.c
@ -1635,6 +1635,7 @@ JumpToEnv(Term t) {
|
|||||||
/* H = B->cp_h; */
|
/* H = B->cp_h; */
|
||||||
t = clean_trail(t, dbt, B->cp_a1);
|
t = clean_trail(t, dbt, B->cp_a1);
|
||||||
B->cp_a3 = t;
|
B->cp_a3 = t;
|
||||||
|
B->cp_tr = TR;
|
||||||
if (first_func != NULL) {
|
if (first_func != NULL) {
|
||||||
B = first_func;
|
B = first_func;
|
||||||
}
|
}
|
||||||
|
Reference in New Issue
Block a user