From 2d81f7ed8e84029e5216bd9f01cda8c9f1399eeb Mon Sep 17 00:00:00 2001
From: Andrew Davison <andrew.davison@gmail.com>
Date: Sat, 15 Feb 2025 09:56:01 +1000
Subject: [PATCH] Fix string leak, re issue #670

---
 src/query.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/query.c b/src/query.c
index 9066a7d9..2a008fc8 100644
--- a/src/query.c
+++ b/src/query.c
@@ -909,13 +909,13 @@ static bool resume_any_choices(const query *q, const frame *f)
 
 static void trim_frame(query *q, const frame *f)
 {
-#if 0
 	for (unsigned i = 0; i < f->actual_slots; i++) {
 		slot *e = GET_SLOT(f, i);
 		cell *c = &e->c;
 		unshare_cell(c);
+		c->tag = TAG_EMPTY;
+		c->flags = 0;
 	}
-#endif
 
 	q->st.sp -= f->actual_slots;
 	q->st.fp--;