From: Taylor R Campbell <campbell@mumble.net>
Date: Wed, 9 Jan 2019 03:49:39 +0000 (+0000)
Subject: Avoid WRITE in URI->STRING.
X-Git-Tag: mit-scheme-pucked-10.1.10~6^2~57
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=62ad94d108aed8a1eb19f8f5dd7d4d0979e64e58;p=mit-scheme.git

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 abccf69e6..c43339013 100644
--- 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))