summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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