Reimplementation of how TXR decides whether to dump bindings

or not. This is now done right inside the standard output stream.

* match.c (output_produced): Variable removed.
(complex_open): Assignment to output_produced removed.

* stream.c (output_produced): New global variable.
(stdio_put_string, stdio_put_char): Set output_produced
to t if the target of the output is stdout.

* stream.h (output_produced): Declared.

* txr.h (output_produced): Declaration removed.

1 files changed, 1 insertions, 0 deletions

diff --git a/stream.h b/stream.h
index 14208f7a..4cb7f923 100644
--- a/stream.h
+++ b/stream.h
@@ -25,6 +25,7 @@
  */
 
 extern val std_input, std_output, std_error;
+extern val output_produced;
 
 val make_stdio_stream(FILE *, val descr, val input, val output);
 val make_pipe_stream(FILE *, val descr, val input, val output);