From bc567f6564802c561c3e80b6c22efffdb7f7a99f Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Sun, 30 Jun 2024 18:02:30 -0700
Subject: txr: @(data) must disable recycling.

* match.c (v_data): Set c->top to zero; after capturing
the c->data pointer to a variable, we must no longer
forcibly recycle the head of the data as we march down.
---
 match.c | 1 +
 1 file changed, 1 insertion(+)

diff --git a/match.c b/match.c
index 451fac24..24e3eb43 100644
--- a/match.c
+++ b/match.c
@@ -4837,6 +4837,7 @@ static val v_data(match_files_ctx *c)
   if (!args || rest(args))
     sem_error(specline, lit("data directive takes one argument"), nao);
 
+  c->top = 0;
   c->bindings = dest_bind(specline, c->bindings, pat, c->data, eql_f);
 
   if (c->bindings == t) {
-- 
cgit v1.2.3