Fix treatment of "false" in out-of-memory handler.

* txr.c (oom_realloc_handler): When terminating, only print
the word false if the print-bindings option -B is in effect.
Also, print it to standard output, not standard error.

1 files changed, 2 insertions, 1 deletions

diff --git a/txr.c b/txr.c
index 83bdf1a8..5a79611e 100644
--- a/txr.c
+++ b/txr.c
@@ -72,7 +72,8 @@ val stdlib_path;
 static mem_t *oom_realloc_handler(mem_t *old, size_t size)
 {
   format(std_error, lit("~a: out of memory\n"), prog_string, nao);
-  put_line(lit("false"), std_error);
+  if (opt_print_bindings)
+    put_line(lit("false"), std_output);
   abort();
 }