WIP

infradig · infradig · commit 7c424b72e007 · 2023-10-18T15:18:46.000+10:00
diff --git a/src/heap.c b/src/heap.c
@@ -251,11 +251,9 @@ static cell *deep_clone2_to_tmp(query *q, cell *p1, pl_idx p1_ctx, unsigned dept
 			if (is_var(c)) {
 				const frame *f = GET_FRAME(c_ctx);
 				slot *e = GET_SLOT(f, c->var_nbr);
+				e->vgen = e->vgen2;
 				p1 = deref(q, c, c_ctx);
 				p1_ctx = q->latest_ctx;
-
-				if (!is_var(p1))
-					e->vgen = e->vgen2;
 			}
 		}
 #endif

Original file line number	Diff line number	Diff line change
`@@ -251,11 +251,9 @@ static cell deep_clone2_to_tmp(query q, cell *p1, pl_idx p1_ctx, unsigned dept`
`251`	`251`	`if (is_var(c)) {`
`252`	`252`	`const frame *f = GET_FRAME(c_ctx);`
`253`	`253`	`slot *e = GET_SLOT(f, c->var_nbr);`
	`254`	`+ e->vgen = e->vgen2;`
`254`	`255`	`p1 = deref(q, c, c_ctx);`
`255`	`256`	`p1_ctx = q->latest_ctx;`
`256`		`-`
`257`		`- if (!is_var(p1))`
`258`		`- e->vgen = e->vgen2;`
`259`	`257`	`}`
`260`	`258`	`}`
`261`	`259`	`#endif`