Don't use vertical brackets when unparsing uninterned symbol.

diff --git a/src/runtime/unpars.scm b/src/runtime/unpars.scm
index a9d0cdd7acb0c4a0dc839054dee915dcbf6bb79f..ee66ac7d01c07007a97273bc4eab452722e794ba 100644 (file)
--- 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)