projects
/
mit-scheme.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
48633b1
)
Remove redundant clause from test for unquoted symbols.
author
Chris Hanson
<org/chris-hanson/cph>
Sun, 14 Oct 2018 04:38:16 +0000
(21:38 -0700)
committer
Chris Hanson
<org/chris-hanson/cph>
Sun, 14 Oct 2018 04:38:16 +0000
(21:38 -0700)
src/runtime/printer.scm
patch
|
blob
|
history
diff --git
a/src/runtime/printer.scm
b/src/runtime/printer.scm
index d7f7fa56223fed540470ced21ed25508c8e978b1..d745f70f58cd4c13162ed88a11aa772075d8e49a 100644
(file)
--- 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)