diff options
| author | Arun Isaac | 2019-10-08 20:56:01 +0530 |
|---|---|---|
| committer | Arun Isaac | 2019-10-08 20:56:01 +0530 |
| commit | e0849c498564b4d23df503a34c22fb237551bbc8 (patch) | |
| tree | 6acde2d0ee6dee92968027d6c8501edb9bf7c600 /tests | |
| parent | 5058ce6ea76bc1104a5950a50d50b06969296215 (diff) | |
| download | guile-email-e0849c498564b4d23df503a34c22fb237551bbc8.tar.gz guile-email-e0849c498564b4d23df503a34c22fb237551bbc8.tar.lz guile-email-e0849c498564b4d23df503a34c22fb237551bbc8.zip | |
Reindent calls to call-with-port.
* email/email.scm (body->mime-entities, email->headers+body): Reindent
calls to call-with-port.
* email/quoted-printable.scm (quoted-printable-encode,
q-encoding-encode): Reindent calls to call-with-port.
* tests/utils.scm ("read-bytes-till returns eof-object on end of
file"): Reindent call to call-with-port.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/utils.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/utils.scm b/tests/utils.scm index b787d9f..7681c72 100644 --- a/tests/utils.scm +++ b/tests/utils.scm @@ -28,7 +28,7 @@ (test-assert "read-bytes-till returns eof-object on end of file" (eof-object? (call-with-port (open-bytevector-input-port (make-bytevector 0)) - (cut read-bytes-till <> (make-bytevector 1))))) + (cut read-bytes-till <> (make-bytevector 1))))) (test-assert "read-while returns eof-object on end of file" (eof-object? |