basis: ERROR: changes.

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

diff --git a/basis/checksums/openssl/openssl.factor b/basis/checksums/openssl/openssl.factor
index 41c8537d45820f1976c22a5ecda9673dd08aeaf1..c8eab9a95e35a07157f2ffda50d8ac64badd45bc 100644 (file)
--- a/basis/checksums/openssl/openssl.factor
+++ b/basis/checksums/openssl/openssl.factor
@@ -33,7 +33,7 @@ M: evp-md-context dispose*
 
 : digest-named ( name -- md )
     dup EVP_get_digestbyname
-    [ ] [ unknown-digest ] ?if ;
+    [ ] [ throw-unknown-digest ] ?if ;
 
 : set-digest ( name ctx -- )
     handle>> swap digest-named f EVP_DigestInit_ex ssl-error ;