summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorArun Isaac2018-10-02 00:16:06 +0530
committerArun Isaac2018-10-02 00:29:13 +0530
commitb7aa0397ed9163c0854fe4de47da519d65f2ddee (patch)
treeac643ff854df9d4298a9b0e197444ec8c2b130b9
parent1875ad75b9e1fca7a53acc36d56bc9991ece2f83 (diff)
downloadguile-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.scm2
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)))