openssl.libssl: simpler for now ssl-peer-certificate.

diff --git a/basis/openssl/libssl/libssl.factor b/basis/openssl/libssl/libssl.factor
index c868e8519d6006e68f8f1e5de897664cd104c59e..8f220167c9fae2c4812d0a34160899055a2476d8 100644 (file)
--- a/basis/openssl/libssl/libssl.factor
+++ b/basis/openssl/libssl/libssl.factor
@@ -453,13 +453,13 @@ FUNCTION: int SSL_get_shutdown ( SSL* ssl )
 
 FUNCTION: int SSL_want ( SSL* ssl )
 FUNCTION: long SSL_get_verify_result ( SSL* ssl )
-FUNCTION: X509* SSL_get_peer_certificate ( SSL* s )
-FUNCTION: X509 *SSL_get0_peer_certificate ( SSL *ssl )
-FUNCTION: X509 *SSL_get1_peer_certificate ( SSL *ssl )
+FUNCTION: X509* SSL_get_peer_certificate ( SSL* ssl )
+FUNCTION: X509* SSL_get0_peer_certificate ( SSL* ssl )
+FUNCTION: X509* SSL_get1_peer_certificate ( SSL* ssl )
 
 : get-ssl-peer-certificate ( ssl -- x509 )
-    { "SSL_get1_peer_certificate" "SSL_get_peer_certificate" } "libssl" find-first-function nip
-    "openssl.libssl" lookup-word execute( ssl -- x509 ) ; inline
+    "SSL_get1_peer_certificate" "libssl" library-dll dlsym-raw
+    [ SSL_get1_peer_certificate ] [ SSL_get_peer_certificate ] if ; inline
 
 FUNCTION: int SSL_set_cipher_list ( SSL* ssl, c-string str )
 FUNCTION: int SSL_use_RSAPrivateKey_file ( SSL* ssl, c-string str )