set-digest ( name ctx -- )

Vocabulary

checksums.openssl.private

Inputs

name	an object
ctx	an object

Outputs

None

Definition

USING: accessors kernel openssl openssl.libcrypto ;

IN: checksums.openssl.private

: set-digest ( name ctx -- )
    handle>> swap digest-named f EVP_DigestInit_ex ssl-error ;