From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 14 Oct 2018 04:38:16 +0000 (-0700)
Subject: Remove redundant clause from test for unquoted symbols.
X-Git-Tag: mit-scheme-pucked-10.1.2~16^2~220
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=2a837668fa48442b2a5d500895c65a77217a5517;p=mit-scheme.git

Remove redundant clause from test for unquoted symbols.
---

diff --git a/src/runtime/printer.scm b/src/runtime/printer.scm
index d7f7fa562..d745f70f5 100644
--- a/src/runtime/printer.scm
+++ b/src/runtime/printer.scm
@@ -542,7 +542,6 @@ USA.
 (define (print-symbol-name s context)
   (if (and (fix:> (string-length s) 0)
 	   (not (string=? s "."))
-	   (not (string-prefix? "#" s))
 	   (char-in-set? (string-ref s 0) char-set:symbol-initial)
 	   (string-every (symbol-name-no-quoting-predicate context) s)
 	   (not (case (param:reader-keyword-style)