mutually authenticated connection code

example.scm

(define (ssl-conn-factory ca-cert-path cert-path key-path)
  (lambda (uri-host uri-port)
    (let ((ssl-ctx (ssl-make-client-context 'tls)))
      (ssl-load-certificate-chain! ssl-ctx cert-path)
      (ssl-load-private-key! ssl-ctx key-path)
      (ssl-load-suggested-certificate-authorities! ssl-ctx ca-cert-path)
      (ssl-load-verify-root-certificates! ssl-ctx ca-cert-path)
      (ssl-set-verify! ssl-ctx #t)
      (ssl-connect uri-host
                   uri-port
                   ssl-ctx))))
  ;;...
  
  (make-request uri: uri
                conn-factory: (ssl-conn-factory (hash-table-ref conn-info 'ca)
                                                (hash-table-ref conn-info 'cert)
                                                (hash-table-ref conn-info 'key))
                method: 'GET)