From 2e37f92549c84783d1c1d39aea5839a78b4fe776 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Sat, 15 Sep 2018 16:05:52 +0530
Subject: quoted-printable: Use call-with-bytevector-output-port.

* email/quoted-printable.scm (quoted-printable-decode): Use
call-with-bytevector-output-port instead of call-with-port and
open-bytevector-output-port.
---
 email/quoted-printable.scm | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

(limited to 'email')

diff --git a/email/quoted-printable.scm b/email/quoted-printable.scm
index 7b88b04..3262fe4 100644
--- a/email/quoted-printable.scm
+++ b/email/quoted-printable.scm
@@ -33,12 +33,8 @@
     (((? string? str))
      (call-with-input-string str quoted-printable-decode))
     (((? port? in))
-     (let-values (((out get-bytevector)
-                   (open-bytevector-output-port)))
-       (call-with-port
-        out (lambda (out)
-              (quoted-printable-decode in out)
-              (get-bytevector)))))
+     (call-with-bytevector-output-port
+      (cut quoted-printable-decode in <>)))
     (((? port? in) (? port? out))
      (let ((c (read-char in)))
        (cond
-- 
cgit v1.2.3