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, 0 insertions, 2 deletions

diff --git a/stream.h b/stream.h
index 7a5911e6..30b06a85 100644
--- a/stream.h
+++ b/stream.h
@@ -54,8 +54,6 @@ struct strm_ops {
 #define std_null (deref(lookup_var_l(nil, stdnull_s)))
 loc lookup_var_l(val env, val sym);
 
-extern val output_produced;
-
 extern val dev_k, ino_k, mode_k, nlink_k, uid_k;
 extern val gid_k, rdev_k, size_k, blksize_k, blocks_k;
 extern val atime_k, mtime_k, ctime_k;