diff options
| author | Arun Isaac | 2018-09-15 16:05:52 +0530 |
|---|---|---|
| committer | Arun Isaac | 2018-09-15 16:10:27 +0530 |
| commit | 2e37f92549c84783d1c1d39aea5839a78b4fe776 (patch) | |
| tree | be1e2bc6c975d2c8d5292a1c09064ca5579420cb | |
| parent | 54d005a0f1ff7ba5eb29d975e4f6735d24a4c972 (diff) | |
| download | guile-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.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 |