From: Taylor R Campbell <campbell@mumble.net>
Date: Wed, 29 May 2019 04:57:53 +0000 (+0000)
Subject: Use number->string directly; skip dispatch through write-to-string.
X-Git-Tag: mit-scheme-pucked-10.1.11~6^2~16
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=214cee1229fd10f3a4303cb4613af03a3915d5fe;p=mit-scheme.git

Use number->string directly; skip dispatch through write-to-string.
---

diff --git a/src/imail/imail-imap.scm b/src/imail/imail-imap.scm
index d48856a41..9010ab487 100644
--- a/src/imail/imail-imap.scm
+++ b/src/imail/imail-imap.scm
@@ -2060,7 +2060,7 @@ USA.
 
 (define (imap-message-cache-specifier message)
   `(,@(imap-folder-cache-specifier (message-folder message))
-    ,(write-to-string (imap-message-uid message))))
+    ,(number->string (imap-message-uid message) #d10)))
 
 (define (imap-message-temporary-directory-pathname message)
   (imap-folder-temporary-directory-pathname (message-folder message)))