Avoid WRITE in URI->STRING.

We use this early on in loading an image -- before we have
initialized all the LIARC objects (indeed, in the course of
initializing LIARC objects), which may themselves have predicates in
the print method dispatcher.

diff --git a/src/runtime/url.scm b/src/runtime/url.scm
index abccf69e6eb5bb738c37e099e4a38a57fb5cfcb0..c4333901331a428a9cadb0d41b88a4dc213d9235 100644 (file)
--- a/src/runtime/url.scm
+++ b/src/runtime/url.scm
@@ -546,7 +546,7 @@ USA.
 (define (%write-uri scheme authority path query fragment port)
   (if scheme
       (begin
-       (write scheme port)
+       (write-string (symbol->string scheme) port)
        (write-char #\: port)))
   (if authority
       (write-uri-authority authority port))
@@ -587,7 +587,7 @@ USA.
   (if port
       (begin
        (write-char #\: output)
-       (write port output))))
+       (write-string (number->string port #d10) output))))
 
 (define (write-segment segment port)
   (write-encoded segment char-set:uri-segment port))