diff options
| -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))) |