Fix pl_query, re issue #672

trealla-prolog · Feb 18, 2025 · 8e30c75 · 8e30c75
1 parent 42e415e
commit 8e30c75
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/parser.c b/src/parser.c
@@ -4177,7 +4177,9 @@ bool run(parser *p, const char *pSrc, bool dump, query **subq, unsigned int yiel
 
 		ok = !q->error;
 		p->m = q->st.curr_m;
-		query_destroy(q);
+
+		if (!subq)
+			query_destroy(q);
 
 		if (p->pl->is_query)
 			break;