Handle number specially in string*.

This matters because we want to use numbers early enough in the cold load that
string ports aren't available yet.

diff --git a/src/runtime/string.scm b/src/runtime/string.scm
index 9b6b1bc925b55af8f5b1d6c574e446a06454ab78..a70c04755e9130c24c6aff498254c64eea47351b 100644 (file)
--- a/src/runtime/string.scm
+++ b/src/runtime/string.scm
@@ -1477,6 +1477,7 @@ USA.
                     (cond ((char? object) object)
                           ((string? object) object)
                           ((symbol? object) (symbol->string object))
+                          ((number? object) (number->string object))
                           (else
                            (call-with-output-string
                              (lambda (port)