Bugfix: missing warnings when main file is .txr.

If the main file of an application is a .txr file, unbound
function and variable warnings are not being generated.

* match.c (v_load): For consistency with the load
function in eval.c, release deferred warnings in the normal
return case, if we are not a recursive load. However, this
doesn't fix anything because a load or include is always
recursive being invoked from a .txr file that is being loaded.
The problem is in fact that the recursive flag is nil
when it shouldn't be, and then the uw_unwind block
obliterates the warnings.

* txr.c (txr_main): We must bind *load-recursive* to t
around not just the loading of Lisp, but also of TXR.
Otherwise the individual loads will release warnings,
raising false positives for forward references.

1 files changed, 3 insertions, 0 deletions

diff --git a/match.c b/match.c
index b7692e11..4a34b544 100644
--- a/match.c
+++ b/match.c
@@ -4245,6 +4245,9 @@ static val v_load(match_files_ctx *c)
 
     dyn_env = saved_dyn_env;
 
+    if (!rec)
+      uw_release_deferred_warnings();
+
     uw_unwind {
       close_stream(stream, nil);
       if (!rec)