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
_______________________________________________
Chicken-users mailing list
[email protected]
https://lists.nongnu.org/mailman/listinfo/chicken-users
