basis: use lint.vocabs tool to trim using lists

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

diff --git a/basis/openssl/openssl.factor b/basis/openssl/openssl.factor
index 8d2e6b9e8a2d03acaf85cca5fa30b16f3edded6b..28890bedd9f1d07dcdc8a80fa98caba5f061b757 100644 (file)
--- a/basis/openssl/openssl.factor
+++ b/basis/openssl/openssl.factor
@@ -1,6 +1,6 @@
 ! Copyright (C) 2007, 2008, Slava Pestov, Elie CHAFTARI.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: alien.libraries init kernel math namespaces openssl.libcrypto
+USING: alien.libraries kernel math namespaces openssl.libcrypto
 openssl.libssl sequences ;
 IN: openssl
 
@@ -16,11 +16,11 @@ SINGLETON: openssl
 : ssl-error-string ( -- string )
     ERR_get_error (ssl-error-string) ;
 
-: (ssl-error) ( -- * )
+: throw-ssl-error ( -- * )
     ssl-error-string throw ;
 
 : ssl-error ( obj -- )
-    { f 0 } member? [ (ssl-error) ] when ;
+    { f 0 } member? [ throw-ssl-error ] when ;
 
 : init-old-api ( -- )
     SSL_library_init ssl-error
@@ -45,4 +45,4 @@ SINGLETON: openssl
         t ssl-initialized? set-global
     ] unless ;
 
-[ f ssl-initialized? set-global ] "openssl" add-startup-hook
+STARTUP-HOOK: [ f ssl-initialized? set-global ]