if-then & cut, re issue #650

trealla-prolog · Jan 14, 2025 · bbe0f44 · bbe0f44
1 parent 0b9217a
commit bbe0f44
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/src/query.c b/src/query.c
@@ -834,14 +834,13 @@ bool drop_barrier(query *q, pl_idx cp)
 	if ((q->cp-1) != cp)
 		return false;
 
-	drop_choice(q);
-
 	if (q->cp) {
 		const choice *ch = GET_CURR_CHOICE();
 		frame *f = GET_CURR_FRAME();
-		f->chgen = ch->chgen;
+		f->chgen = ch->frame_chgen;
 	}
 
+	drop_choice(q);
 	return true;
 }