Pooled HTTP client locks when connection can't be acquired

(import (rnrs)
    (net http-client))

(define pooling-config (http-pooling-connection-config-builder))

(define http-client (http:client-builder
             (connection-manager
              (make-http-pooling-connection-manager pooling-config))))

(define request (http:request-builder
             (uri "https://the.host.does-not-exist.nl")
             (method 'GET)))
(define (send-request)
  (guard (e (else (print 'ok)))
    (http:client-send http-client request)
    (print 'why)))

(send-request)
(send-request) ;; this doesn't print but hangs

‌

Comments (1)