Cleanup some lint warnings.

[factor.git] / basis / openssl / openssl.factor

diff --git a/basis/openssl/openssl.factor b/basis/openssl/openssl.factor
index 76806f9523c0151a1d0500ff17abbc6dbcb5c314..9315e43a392c5a39bc5ecdb65b6fb82cb8eaca52 100644 (file)
--- a/basis/openssl/openssl.factor
+++ b/basis/openssl/openssl.factor
@@ -12,7 +12,7 @@ SINGLETON: openssl
     ERR_clear_error f ERR_error_string ;
 
 : ssl-error-string ( -- string )
-    ERR_get_error ERR_clear_error f ERR_error_string ;
+    ERR_get_error (ssl-error-string) ;
 
 : (ssl-error) ( -- * )
     ssl-error-string throw ;