Bugfix: @(require) eval not in proper env.

I caught this when doing a @(require (boundp 'var)).

* match.c (v_require): The correct evaluation was being
done here, with the value discarded, followed by an incorrect
evaluation in which the TXR bindings are not visible, whose
value *is* then used.

1 files changed, 1 insertions, 2 deletions

diff --git a/match.c b/match.c
index 54914572..9eb1a532 100644
--- a/match.c
+++ b/match.c
@@ -3625,8 +3625,7 @@ static val v_require(match_files_ctx *c)
   spec_bind (specline, first_spec, c->spec);
   val args = rest(first_spec);
   val ret;
-  (void) eval_progn_with_bindings(args, c->spec, c->bindings, specline);
-  ret = eval_progn(args, make_env(c->bindings, nil, nil), specline);
+  ret = eval_progn_with_bindings(args, c->spec, c->bindings, specline);
   if (!ret)
     return ret;
   return next_spec_k;