factor: use ??if instead of ?if-old

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

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