From 4f3e85b864113c5421f77ace4fa5155f9e6736f2 Mon Sep 17 00:00:00 2001 From: Hans Dijkema Date: Sun, 12 Apr 2026 12:35:22 +0200 Subject: [PATCH] Struggling with BIO mem function and utf 8 conversion --- private/self-signed-cert.rkt | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/private/self-signed-cert.rkt b/private/self-signed-cert.rkt index e261b74..f22ff2c 100644 --- a/private/self-signed-cert.rkt +++ b/private/self-signed-cert.rkt @@ -213,7 +213,10 @@ (BIO_get_mem_data (λ (bio-ptr) (let ((r (BIO_ctrl bio-ptr BIO_CTRL_INFO 0))) (let ((r* (subbytes (cadr r) 0 (car r)))) - r*)))) + (write r*)(newline) + (let ((r** (bytes->string/utf-8 r*))) + (write r**)(newline) + r**))))) (ASN1_OCTET_STRING_new (λ () (ASN1_STRING_type_new V_ASN1_OCTET_STRING))) )