From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 23 Jan 2018 06:42:09 +0000 (-0800)
Subject: Don't use vertical brackets when unparsing uninterned symbol.
X-Git-Tag: mit-scheme-pucked-x11-0.3.1~7^2~316
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=21fb48291e77ee8c0eceda997e3855fd7bede8d6;p=mit-scheme.git

Don't use vertical brackets when unparsing uninterned symbol.
---

diff --git a/src/runtime/unpars.scm b/src/runtime/unpars.scm
index a9d0cdd7a..ee66ac7d0 100644
--- a/src/runtime/unpars.scm
+++ b/src/runtime/unpars.scm
@@ -444,10 +444,10 @@ USA.
 
 (define (unparse/uninterned-symbol symbol context)
   (if (get-param:unparse-uninterned-symbols-by-name?)
-      (unparse-symbol symbol context)
+      (unparse-symbol-name (symbol->string symbol) context)
       (*unparse-with-brackets 'UNINTERNED-SYMBOL symbol context
         (lambda (context*)
-          (unparse-symbol symbol context*)))))
+	  (*unparse-string (symbol->string symbol) context)))))
 
 (define (unparse-symbol symbol context)
   (if (keyword? symbol)