From 64396b05c9927f2a1e3cd92e45bf2eaa5fb5975b Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Sat, 25 Jun 2011 16:16:15 +0000 Subject: [PATCH] Elide intermediate wide string in SYMBOL->STRING. --- src/runtime/symbol.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- 2.25.1