From a0a0e41908b158d42fb1d5f0a92dc68ae72198fb Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Thu, 11 Aug 2016 19:30:44 -0400 Subject: [PATCH] Allow NULL ptr return so we can see error message --- racket/collects/openssl/mzssl.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/racket/collects/openssl/mzssl.rkt b/racket/collects/openssl/mzssl.rkt index 32d36b54ee..ca3576e1db 100644 --- a/racket/collects/openssl/mzssl.rkt +++ b/racket/collects/openssl/mzssl.rkt @@ -266,7 +266,7 @@ TO DO: (define-ssl SSL_CTX_free (_fun _SSL_CTX* -> _void) #:wrap (deallocator)) -(define-ssl SSL_CTX_new (_fun _SSL_METHOD* -> _SSL_CTX*) +(define-ssl SSL_CTX_new (_fun _SSL_METHOD* -> _SSL_CTX*/null) #:wrap (allocator SSL_CTX_free)) (define-ssl SSL_CTX_callback_ctrl (_fun _SSL_CTX* _int