Welcome to the CHICKEN Scheme pasting service

$ 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)))