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.

1 files changed, 1 insertions, 0 deletions

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) {