Debug bio get mem

2026-04-12 12:15:56 +02:00
parent 2eb6b7fa67
commit 6c5a08de1b
1 changed files with 1 additions and 0 deletions
--- a/private/self-signed-cert.rkt
+++ b/private/self-signed-cert.rkt
@@ -212,6 +212,7 @@
 (version-define 1
   (BIO_get_mem_data (λ (bio-ptr)
                       (let ((r (BIO_ctrl bio-ptr BIO_CTRL_INFO 0)))
+                         (displayln r)
                         (cadr r))))
   (ASN1_OCTET_STRING_new (λ ()
                            (ASN1_STRING_type_new V_ASN1_OCTET_STRING)))