Better way for releasing deferred warnings.

We should be re-throwing deferred warnings as ordinary
warnings, not dumping them to a stream.

* eval.c (eval_exception): Use uw_release_deferred_warnings
instead of uw_dupm_deferred_warnings.
(load): Likewise.

* parser.c (read_eval_ret_last): Likewise.

* txr.c (txr_main): Likewise.

* unwind.c (uw_release_deferred_warnings): New function.

* unwind.h (uw_release_deferred_warnings): Declared.

* txr.1: Documented release-deferred-warnings and updated
documentation for dump-deferred-warnings.

1 files changed, 3 insertions, 3 deletions

diff --git a/eval.c b/eval.c
index ecd27f42..afd254dd 100644
--- a/eval.c
+++ b/eval.c
@@ -225,7 +225,7 @@ noreturn static void eval_exception(val sym, val ctx, val fmt, va_list vl)
 
   (void) vformat(stream, fmt, vl);
 
-  uw_dump_deferred_warnings(std_error);
+  uw_release_deferred_warnings();
 
   uw_throw(sym, get_string_from_stream(stream));
 }
@@ -1330,7 +1330,7 @@ val eval_intrinsic(val form, val env)
   val form_ex = (last_form_expanded = last_form_evaled = nil,
                  expand(form, nil));
   val loading = cdr(lookup_var(dyn_env, load_recursive_s));
-  val ret = ((void) (loading || uw_dump_deferred_warnings(std_error)),
+  val ret = ((void) (loading || uw_release_deferred_warnings()),
              eval(form_ex, default_bool_arg(env), form));
   last_form_expanded = lfx_save;
   last_form_evaled = lfe_save;
@@ -3858,7 +3858,7 @@ val load(val target)
   dyn_env = saved_dyn_env;
 
   if (!rec)
-    uw_dump_deferred_warnings(std_error);
+    uw_release_deferred_warnings();
 
   uw_unwind {
     close_stream(stream, nil);