[Chicken-users] [PATCH 2/4] openssl: don't raise 'ssl-peek-char exception in write

[Florian Zumbiehl]

Signal 'ssl-write rather than 'ssl-peek-char when SSL write on output port
fails.
---
 openssl.scm |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/openssl.scm b/openssl.scm
index 9433bcd..6aafcc9 100644
--- a/openssl.scm
+++ b/openssl.scm
@@ -436,7 +436,7 @@ EOF
               (when (> (##sys#size buffer) 0) ; Undefined behaviour for 0 
bytes!
                 (let loop ((offset 0) (size (##sys#size buffer)))
                   (let ((ret (ssl-call/timeout
-                              'ssl-peek-char
+                              'ssl-write
                               (lambda () (ssl-write ssl buffer offset size))
                               fd (tcp-write-timeout) "SSL write timed out")))
                     (when (fx< ret size) ; Partial write
-- 
1.7.2.5