From 417efae3e637cab294b4b2c5ebbae666ecaab282 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 12 May 2018 22:33:03 -0700
Subject: [PATCH] Simplify *print-with-brackets a bit.

---
 src/runtime/printer.scm | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/src/runtime/printer.scm b/src/runtime/printer.scm
index c4d8a5a24..79a1e62b9 100644
--- a/src/runtime/printer.scm
+++ b/src/runtime/printer.scm
@@ -405,7 +405,7 @@ USA.
   (char-in-set? char (context-char-set context)))
 
 (define (*print-with-brackets name object context procedure)
-  (if (and (get-param:print-with-maximum-readability?) object)
+  (if (get-param:print-with-maximum-readability?)
       (*print-readable-hash object context)
       (begin
 	(*print-string "#[" context)
@@ -413,10 +413,8 @@ USA.
 	  (if (string? name)
 	      (*print-string name context*)
 	      (print-object name context*))
-	  (if object
-	      (begin
 		(*print-char #\space context*)
-		(*print-hash object context*)))
+	  (*print-hash object context*)
 	  (cond (procedure
 		 (procedure context*))
 		((get-param:print-with-datum?)
-- 
2.25.1