(normalize-path) -> absolute-path, canonicalize-path -> resolve-symlinks

[factor.git] / basis / io / sockets / secure / openssl / openssl.factor

diff --git a/basis/io/sockets/secure/openssl/openssl.factor b/basis/io/sockets/secure/openssl/openssl.factor
index 400a44ea020c78daa5e4d7165de773af5ac4f638..ac0be4e936bab3e81f697da0f81d470bdd27b7b6 100644 (file)
--- a/basis/io/sockets/secure/openssl/openssl.factor
+++ b/basis/io/sockets/secure/openssl/openssl.factor
@@ -25,7 +25,7 @@ TUPLE: openssl-context < secure-context aliens sessions ;
 
 : load-certificate-chain ( ctx -- )
     dup config>> key-file>> [
-        [ handle>> ] [ config>> key-file>> (normalize-path) ] bi
+        [ handle>> ] [ config>> key-file>> absolute-path ] bi
         SSL_CTX_use_certificate_chain_file
         ssl-error
     ] [ drop ] if ;
@@ -56,7 +56,7 @@ TUPLE: openssl-context < secure-context aliens sessions ;
 
 : use-private-key-file ( ctx -- )
     dup config>> key-file>> [
-        [ handle>> ] [ config>> key-file>> (normalize-path) ] bi
+        [ handle>> ] [ config>> key-file>> absolute-path ] bi
         SSL_FILETYPE_PEM SSL_CTX_use_PrivateKey_file
         ssl-error
     ] [ drop ] if ;
@@ -66,8 +66,8 @@ TUPLE: openssl-context < secure-context aliens sessions ;
         [ handle>> ]
         [
             config>>
-            [ ca-file>> dup [ (normalize-path) ] when ]
-            [ ca-path>> dup [ (normalize-path) ] when ] bi
+            [ ca-file>> dup [ absolute-path ] when ]
+            [ ca-path>> dup [ absolute-path ] when ] bi
         ] bi
         SSL_CTX_load_verify_locations
     ] [ handle>> SSL_CTX_set_default_verify_paths ] if ssl-error ;