hans/racket-self-signed-cert
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

commented out displays

Browse Source
This commit is contained in:
Hans Dijkema
2026-04-12 12:35:56 +02:00
parent 4f3e85b864
commit 76b7df1985
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
private/self-signed-cert.rkt
View File

@@ -213,9 +213,9 @@
(BIO_get_mem_data (λ (bio-ptr) (BIO_get_mem_data (λ (bio-ptr)
(let ((r (BIO_ctrl bio-ptr BIO_CTRL_INFO 0))) (let ((r (BIO_ctrl bio-ptr BIO_CTRL_INFO 0)))
(let ((r* (subbytes (cadr r) 0 (car r)))) (let ((r* (subbytes (cadr r) 0 (car r))))
(write r*)(newline) ;(write r*)(newline)
(let ((r** (bytes->string/utf-8 r*))) (let ((r** (bytes->string/utf-8 r*)))
(write r**)(newline) ;(write r**)(newline)
r**))))) r**)))))
(ASN1_OCTET_STRING_new (λ () (ASN1_OCTET_STRING_new (λ ()
(ASN1_STRING_type_new V_ASN1_OCTET_STRING))) (ASN1_STRING_type_new V_ASN1_OCTET_STRING)))