Remove redundant clause from test for unquoted symbols.
authorChris Hanson <org/chris-hanson/cph>
Sun, 14 Oct 2018 04:38:16 +0000 (21:38 -0700)
committerChris Hanson <org/chris-hanson/cph>
Sun, 14 Oct 2018 04:38:16 +0000 (21:38 -0700)
src/runtime/printer.scm

index d7f7fa56223fed540470ced21ed25508c8e978b1..d745f70f58cd4c13162ed88a11aa772075d8e49a 100644 (file)
@@ -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)