txr: bugfix: reset top flag when copying context.

* match.c (match_files): This function sometimes receives a
copy of a top-marked context. The copy must not be top-marked,
or very bad things happen.

1 files changed, 1 insertions, 0 deletions

diff --git a/match.c b/match.c
index 4924fe8f..451fac24 100644
--- a/match.c
+++ b/match.c
@@ -5077,6 +5077,7 @@ out:
 
 static val match_files(match_files_ctx c)
 {
+  c.top = 0;
   return match_files_byref(&c);
 }