From 2f93e69b13e6beac51dba87f4c7c5b15abab662c Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Thu, 29 Nov 2012 00:55:11 -0500 Subject: [PATCH] make file runnable on non-win32 --- collects/openssl/private/win32.rkt | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/collects/openssl/private/win32.rkt b/collects/openssl/private/win32.rkt index c08e6d4351..0ba8868e82 100644 --- a/collects/openssl/private/win32.rkt +++ b/collects/openssl/private/win32.rkt @@ -9,7 +9,8 @@ (provide load-win32-root-certificates) ;; -- libcrypto -(define-ffi-definer define-crypto libcrypto) +(define-ffi-definer define-crypto libcrypto + #:default-make-fail make-not-available) (define-cpointer-type _X509*) (define-cpointer-type _X509_STORE*) @@ -26,7 +27,8 @@ ;; -- libssl -(define-ffi-definer define-ssl libssl) +(define-ffi-definer define-ssl libssl + #:default-make-fail make-not-available) (define _SSL_CTX* _pointer) (define-ssl SSL_CTX_get_cert_store @@ -34,7 +36,10 @@ ;; -- Windows CryptoAPI -(define crypt-lib (ffi-lib "crypt32.dll")) +(define crypt-lib + (case (system-type) + ((windows) (ffi-lib "crypt32.dll")) + (else #f))) (define-ffi-definer define-crypt crypt-lib #:default-make-fail make-not-available)