OpenSSL error added by gahr 3 days ago
$ cat openssl-error.scm (import (scheme) (openssl) (only (chicken base) cut) (only (chicken condition) condition->list handle-exceptions) (only (chicken format) printf) (only (chicken io) read-string) (only (chicken time) current-seconds) (only (chicken time posix) seconds->string) (only (http-client) call-with-input-request) ) (define (dd . msg) (printf "~A - ~A~%" (seconds->string (current-seconds)) msg)) (let loop () (read) (handle-exceptions exn (begin (dd "call failed" (condition->list exn))) (begin (dd "call start") (call-with-input-request "https://google.com" #f (lambda (in) (dd (string-length (read-string #f in))))) (dd "call end"))) (loop)) [I] gahr@dev ~/l/s/c/ssl-error> chicken-csi -s openssl-error.scm foo Mon Jul 7 11:53:36 2025 - (call start) Mon Jul 7 11:53:36 2025 - (17789) Mon Jul 7 11:53:36 2025 - (call end) foo Mon Jul 7 11:53:41 2025 - (call start) Mon Jul 7 11:53:41 2025 - (34456) Mon Jul 7 11:53:41 2025 - (call end) foo Mon Jul 7 11:56:24 2025 - (call start) Mon Jul 7 11:56:24 2025 - (34456) Mon Jul 7 11:56:24 2025 - (call end) foo Mon Jul 7 13:31:49 2025 - (call start) Mon Jul 7 13:31:49 2025 - (call failed ((exn message error:0A000197:SSL routines::shutdown while in init location ssl-shutdown arguments ()) (i/o) (net) (openssl status ssl)))