Elide intermediate wide string in SYMBOL->STRING.

diff --git a/src/runtime/symbol.scm b/src/runtime/symbol.scm
index 4d2c7275ef5a8fc4eb7aa740c04d47604ede9135..b8886e7f3b27134f67c196a4e0a81dfa1accd6e3 100644 (file)
--- 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