Comment 1 for bug 163714

Fixed in revision 1085.

Ikarus Scheme version 0.0.1
Copyright (c) 2006-2007 Abdulaziz Ghuloum

> '|a b|
a\x20;b
> 'a\x20;b
a\x20;b
(let ([os (open-output-string)])
      (write '|a b| os)
      (read (open-input-string (get-output-string os))))
a\x20;b
> (string->symbol (symbol->string '|a b|))
a\x20;b
(let ([os (open-output-string)])
      (write (string->symbol "a b") os)
      (read (open-input-string (get-output-string os))))
a\x20;b
> (string->symbol "a b")
a\x20;b
> (symbol->string 'a\x20;b)
"a b"
> '\xa;b
\xA;b
> '\x20;zzz
\x20;zzz
>