From cf21f3073aa7e688e4b8b9823597b0447d308ae6 Mon Sep 17 00:00:00 2001 From: Hans Dijkema Date: Sat, 7 Mar 2026 01:59:47 +0100 Subject: [PATCH] Removed a display statement. And used libcrypto, which is provided by racket instead of trying to add the crypto lib by hand. --- .gitignore | 1 + private/self-signed-cert.rkt | 7 ++----- 2 files changed, 3 insertions(+), 5 deletions(-) diff --git a/.gitignore b/.gitignore index 3bd7ab8..052ad59 100644 --- a/.gitignore +++ b/.gitignore @@ -16,3 +16,4 @@ compiled/ *.dep /*.bak +/private/*.bak diff --git a/private/self-signed-cert.rkt b/private/self-signed-cert.rkt index 25a2367..6d8661b 100644 --- a/private/self-signed-cert.rkt +++ b/private/self-signed-cert.rkt @@ -5,6 +5,7 @@ racket/match openssl openssl/libssl + openssl/libcrypto (prefix-in c: racket/contract) racket/string ) @@ -112,10 +113,7 @@ (define os (system-type 'os*)) -(define libopenssl (cond - ([eq? os 'windows] (ffi-lib "libeay32.dll")) - (else (error (format "Cannot load openssl library on platform ~a" os))) - )) +(define libopenssl libcrypto) (define-ffi-definer define-ssl libopenssl) @@ -270,7 +268,6 @@ alt-name (string-length alt-name)) (let ((r (X509_EXTENSION_create_by_NID #f NID_subject_alt_name 0 subj-alt-name-asn1))) - (displayln r) (when (eq? r #f) (error "Cannot allocate X509 Extenstion for Subject Alt Name"))