diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2017-02-10 14:09:34 -0800 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2017-02-10 14:09:34 -0800 |
commit | 2c4d870ce98b425d07b136e12ba782cfc8e23367 (patch) | |
tree | 9aff5e1067516f4705517f57d0c3207aa94ab03c /txr.c | |
parent | 0f8e8e539d8c9c160e5832ccd20a72bd9038d023 (diff) | |
download | txr-2c4d870ce98b425d07b136e12ba782cfc8e23367.tar.gz txr-2c4d870ce98b425d07b136e12ba782cfc8e23367.tar.bz2 txr-2c4d870ce98b425d07b136e12ba782cfc8e23367.zip |
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.
Diffstat (limited to 'txr.c')
-rw-r--r-- | txr.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -978,7 +978,7 @@ int txr_main(int argc, char **argv) close_stream(parse_stream, nil); - uw_dump_deferred_warnings(std_error); + uw_release_deferred_warnings(); if (parser.errors) return EXIT_FAILURE; @@ -1019,7 +1019,7 @@ int txr_main(int argc, char **argv) close_stream(parse_stream, nil); - uw_dump_deferred_warnings(std_error); + uw_release_deferred_warnings(); if (!enter_repl) return result ? 0 : EXIT_FAILURE; |