diff options
| author | Arun Isaac | 2018-10-02 00:16:06 +0530 |
|---|---|---|
| committer | Arun Isaac | 2018-10-02 00:29:13 +0530 |
| commit | b7aa0397ed9163c0854fe4de47da519d65f2ddee (patch) | |
| tree | ac643ff854df9d4298a9b0e197444ec8c2b130b9 | |
| parent | 1875ad75b9e1fca7a53acc36d56bc9991ece2f83 (diff) | |
| download | guile-email-b7aa0397ed9163c0854fe4de47da519d65f2ddee.tar.gz guile-email-b7aa0397ed9163c0854fe4de47da519d65f2ddee.tar.lz guile-email-b7aa0397ed9163c0854fe4de47da519d65f2ddee.zip | |
utils: Use else for the default cond clause.
* email/utils.scm (read-while)[read-while-loop]: Use else, instead
of #t, for the default cond clause.
| -rw-r--r-- | email/utils.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/email/utils.scm b/email/utils.scm index e942fc2..35a96d8 100644 --- a/email/utils.scm +++ b/email/utils.scm @@ -47,7 +47,7 @@ string returned by READ-PROC as argument." ((pred x) (put-string output x) (read-while-loop output)) - (#t (unget-string port x))))) + (else (unget-string port x))))) (let ((str (call-with-output-string read-while-loop))) (if (string-null? str) (eof-object) str))) |