aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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)))