diff options
| -rw-r--r-- | email/quoted-printable.scm | 8 |
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 |