read/write invariance on symbols consisting of digits

[Jim Ursetto]

(symbol->string
 (with-input-from-string
  (with-output-to-string
   (lambda ()
    (write (string->symbol "3"))))
  read))

Error: (symbol->string) bad argument type - not a symbol: 3

because the 3 is read as a number. In other words, (string->symbol "3") should return |3| not 3. It works fine for floating point numbers, though.

#;11> (string->symbol "1.3")
|1.3|
#;12> (string->symbol "3")
3

[felix winkelmann]

Milestone 4.6.0 deleted