Removed a display statement.
And used libcrypto, which is provided by racket instead of trying to add the crypto lib by hand.
This commit is contained in:
@@ -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"))
|
||||
|
||||
|
||||
Reference in New Issue
Block a user