From b62d91901bf821e6aded7fe567f1da0d713123db Mon Sep 17 00:00:00 2001 From: Hans Dijkema Date: Sun, 12 Apr 2026 12:23:37 +0200 Subject: [PATCH] Corrected self signed cert to use the right number of bytes from memory --- private/self-signed-cert.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/private/self-signed-cert.rkt b/private/self-signed-cert.rkt index d645afb..e261b74 100644 --- a/private/self-signed-cert.rkt +++ b/private/self-signed-cert.rkt @@ -212,8 +212,8 @@ (version-define 1 (BIO_get_mem_data (λ (bio-ptr) (let ((r (BIO_ctrl bio-ptr BIO_CTRL_INFO 0))) - (displayln r) - (cadr r)))) + (let ((r* (subbytes (cadr r) 0 (car r)))) + r*)))) (ASN1_OCTET_STRING_new (λ () (ASN1_STRING_type_new V_ASN1_OCTET_STRING))) )