From 2a7f0136df10e5a6d10988b6040267e771ee5df6 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Wed, 4 May 2016 07:03:44 -0700
Subject: 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.
---
 txr.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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();
 }
 
-- 
cgit v1.2.3