The dumping of bindings and printing of false must now

be explicitly requested by the -B option.

* match.c (opt_nobindings): Variable removed.
(opt_print_bindings): New variable.
(extract): Print bindings or "false" if opt_print_bindings is true.

* stream.c (output_produced): Variable removed.
(stdio_put_string, stdio_put_char, stdio_put_byte): Remove
update of output_produced.

* stream.h (output_produced): Declaration removed.

* txr.1: Documentation updated.

* txr.c (txr_main): Option 'b' does nothing. 'B', 'l', 'a',
and '--lisp-bindings' set opt_print_bindings to 1.

* txr.h (opt_nobindings): Declaration removed.
(opt_print_bindings): Declared.

* unwind.c (uw_throw): When exiting due to a query error or
file error, print false when opt_print_bindings is true.

1 files changed, 1 insertions, 1 deletions

diff --git a/unwind.c b/unwind.c
index 3b4f674e..c76c4b0b 100644
--- a/unwind.c
+++ b/unwind.c
@@ -292,7 +292,7 @@ val uw_throw(val sym, val exception)
     }
     if (uw_exception_subtype_p(sym, query_error_s) ||
         uw_exception_subtype_p(sym, file_error_s)) {
-      if (!output_produced)
+      if (opt_print_bindings)
         put_line(lit("false"), std_output);
       exit(EXIT_FAILURE);
     }