From 214cee1229fd10f3a4303cb4613af03a3915d5fe Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Wed, 29 May 2019 04:57:53 +0000 Subject: [PATCH] Use number->string directly; skip dispatch through write-to-string. --- src/imail/imail-imap.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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))) -- 2.25.1