diff --git a/basis/io/sockets/secure/secure.factor b/basis/io/sockets/secure/secure.factor index 9e6f555..65c53b9 100644 --- a/basis/io/sockets/secure/secure.factor +++ b/basis/io/sockets/secure/secure.factor @@ -114,3 +114,6 @@ HOOK: accept-secure-handshake secure-socket-backend ( -- ) { [ os unix? ] [ "io.sockets.secure.unix" require ] } { [ os windows? ] [ "io.sockets.secure.windows" require ] } } cond + +M: object opt-send-secure-handshake send-secure-handshake ; +M: object opt-accept-secure-handshake accept-secure-handshake ; diff --git a/basis/io/sockets/sockets.factor b/basis/io/sockets/sockets.factor index ff01ecf..2ac9b58 100644 --- a/basis/io/sockets/sockets.factor +++ b/basis/io/sockets/sockets.factor @@ -473,3 +473,6 @@ M: invalid-local-address summary { [ os unix? ] [ "io.sockets.unix" require ] } { [ os windows? ] [ "io.sockets.windows" require ] } } cond + +HOOK: opt-send-secure-handshake f ( -- ) +HOOK: opt-accept-secure-handshake f ( -- )