From 2a837668fa48442b2a5d500895c65a77217a5517 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 13 Oct 2018 21:38:16 -0700
Subject: [PATCH] Remove redundant clause from test for unquoted symbols.

---
 src/runtime/printer.scm | 1 -
 1 file changed, 1 deletion(-)

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