steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix typo

db4
Slava Pestov 2008-05-31 00:07:40 -05:00
parent 620103351e
commit 10a4216311
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
extra/openssl/openssl.factor
View File

@ -38,15 +38,15 @@ M: TLSv1 ssl-method drop TLSv1_method ;
OpenSSL_add_all_digests OpenSSL_add_all_digests
OpenSSL_add_all_ciphers ; OpenSSL_add_all_ciphers ;
SYMBOL: ssl-initiazed? SYMBOL: ssl-initialized?
: maybe-init-ssl ( -- ) : maybe-init-ssl ( -- )
ssl-initiazed? get-global [ ssl-initialized? get-global [
init-ssl init-ssl
t ssl-initiazed? set-global t ssl-initialized? set-global
] unless ; ] unless ;
[ f ssl-initiazed? set-global ] "openssl" add-init-hook [ f ssl-initialized? set-global ] "openssl" add-init-hook
TUPLE: openssl-context < secure-context aliens ; TUPLE: openssl-context < secure-context aliens ;