summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorArun Isaac2018-09-15 16:05:52 +0530
committerArun Isaac2018-09-15 16:10:27 +0530
commit2e37f92549c84783d1c1d39aea5839a78b4fe776 (patch)
treebe1e2bc6c975d2c8d5292a1c09064ca5579420cb
parent54d005a0f1ff7ba5eb29d975e4f6735d24a4c972 (diff)
downloadguile-email-2e37f92549c84783d1c1d39aea5839a78b4fe776.tar.gz
guile-email-2e37f92549c84783d1c1d39aea5839a78b4fe776.tar.lz
guile-email-2e37f92549c84783d1c1d39aea5839a78b4fe776.zip
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.
-rw-r--r--email/quoted-printable.scm8
1 files changed, 2 insertions, 6 deletions
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