From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 13 May 2018 05:33:03 +0000 (-0700)
Subject: Simplify *print-with-brackets a bit.
X-Git-Tag: mit-scheme-pucked-x11-0.3.1~7^2~57
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=417efae3e637cab294b4b2c5ebbae666ecaab282;p=mit-scheme.git

Simplify *print-with-brackets a bit.
---

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?)