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

checksums.openssl: make evp-md-context private.

char-rename
John Benediktsson 2016-06-29 14:31:32 -07:00
parent 0feed3c35d
commit d9f17317e3
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/checksums/openssl/openssl.factor
View File

@ -17,6 +17,8 @@ INSTANCE: openssl-checksum stream-checksum
C: <openssl-checksum> openssl-checksum C: <openssl-checksum> openssl-checksum
<PRIVATE
TUPLE: evp-md-context < disposable handle ; TUPLE: evp-md-context < disposable handle ;
: <evp-md-context> ( -- ctx ) : <evp-md-context> ( -- ctx )
@ -26,8 +28,6 @@ TUPLE: evp-md-context < disposable handle ;
M: evp-md-context dispose* M: evp-md-context dispose*
handle>> EVP_MD_CTX_destroy ; handle>> EVP_MD_CTX_destroy ;
<PRIVATE
: digest-named ( name -- md ) : digest-named ( name -- md )
dup EVP_get_digestbyname dup EVP_get_digestbyname
[ ] [ unknown-digest ] ?if ; [ ] [ unknown-digest ] ?if ;