From: Taylor R Campbell <campbell@mumble.net>
Date: Sat, 25 Jun 2011 16:16:15 +0000 (+0000)
Subject: Elide intermediate wide string in SYMBOL->STRING.
X-Git-Tag: release-9.1.0~3^2~9
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=64396b05c9927f2a1e3cd92e45bf2eaa5fb5975b;p=mit-scheme.git

Elide intermediate wide string in SYMBOL->STRING.
---

diff --git a/src/runtime/symbol.scm b/src/runtime/symbol.scm
index 4d2c7275e..b8886e7f3 100644
--- a/src/runtime/symbol.scm
+++ b/src/runtime/symbol.scm
@@ -161,4 +161,4 @@ USA.
   (utf8-string->wide-string (symbol-name symbol)))
 
 (define (symbol->string symbol)
-  (wide-string->string (symbol->wide-string symbol)))
\ No newline at end of file
+  (utf8-string->string (symbol-name symbol)))
\ No newline at end of file