From b7aa0397ed9163c0854fe4de47da519d65f2ddee Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Tue, 2 Oct 2018 00:16:06 +0530
Subject: 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.
---
 email/utils.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)))
-- 
cgit v1.2.3