end_of_file, re issue #620

trealla-prolog · Nov 3, 2024 · 0102b20 · 0102b20
1 parent de4dbbe
commit 0102b20
Showing 1 changed file with 3 additions and 5 deletions.
diff --git a/src/prolog.c b/src/prolog.c
@@ -153,16 +153,14 @@ bool pl_query(prolog *pl, const char *s, pl_sub_query **subq, unsigned int yield
 	if (!pl || !*s || !subq)
 		return false;
 
-	if (!pl->p)
-		pl->p = parser_create(pl->curr_m);
-	else
-		reset(pl->p);
-
+	pl->p = parser_create(pl->curr_m);
 	if (!pl->p) return false;
 	pl->p->command = true;
 	pl->is_query = true;
 	bool ok = run(pl->p, s, true, (query**)subq, yield_time_in_ms);
 	if (get_status(pl)) pl->curr_m = pl->p->m;
+	parser_destroy(pl->p);
+	pl->p = NULL;
 	return ok;
 }