From 62ad94d108aed8a1eb19f8f5dd7d4d0979e64e58 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Wed, 9 Jan 2019 03:49:39 +0000 Subject: [PATCH] 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. --- src/runtime/url.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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)) -- 2.25.1