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

Fix misleading error message

db4
Slava Pestov 2008-05-20 18:25:29 -05:00
parent 332960adab
commit 41490d386f
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

@ -153,13 +153,13 @@ M: openssl-context dispose*
TUPLE: ssl-handle file handle connected disposed ; TUPLE: ssl-handle file handle connected disposed ;
ERROR: no-ssl-context ; ERROR: no-secure-context ;
M: no-ssl-context summary M: no-secure-context summary
drop "SSL operations must be wrapped in calls to with-ssl-context" ; drop "Secure socket operations must be wrapped in calls to with-secure-context" ;
: current-ssl-context ( -- ctx ) : current-ssl-context ( -- ctx )
secure-context get [ no-ssl-context ] unless* ; secure-context get [ no-secure-context ] unless* ;
: <ssl-handle> ( fd -- ssl ) : <ssl-handle> ( fd -- ssl )
current-ssl-context handle>> SSL_new dup ssl-error current-ssl-context handle>> SSL_new dup ssl-error