Fix the issue properly, once and for all, of how to determine

that output has taken place and suppress the printing of bindings.

* debug.c (debug): std_output replaced with std_debug.

* eval.c (eval_init): Registered new *stddebug* variable.

* stream.c (std_debug): New variable.
(stdio_put_string): Check that stream is other than
std_debug, to determine that output has taken place.

* stream.h (std_debug): Declared.

* txr.1: Added *stddebug* to documentation stub heading.

1 files changed, 1 insertions, 0 deletions

diff --git a/eval.c b/eval.c
index c0a38ed5..532b63f0 100644
--- a/eval.c
+++ b/eval.c
@@ -2181,6 +2181,7 @@ void eval_init(void)
   reg_fun(intern(lit("eval"), user_package), func_n2o(eval_intrinsic, 1));
 
   reg_var(intern(lit("*stdout*"), user_package), &std_output);
+  reg_var(intern(lit("*stddebug*"), user_package), &std_debug);
   reg_var(intern(lit("*stdin*"), user_package), &std_input);
   reg_var(intern(lit("*stderr*"), user_package), &std_error);
   reg_fun(intern(lit("format"), user_package), func_n2v(formatv));