diff --git a/basis/io/sockets/secure/secure.factor b/basis/io/sockets/secure/secure.factor index 9536ed7d33..1f1de35182 100644 --- a/basis/io/sockets/secure/secure.factor +++ b/basis/io/sockets/secure/secure.factor @@ -62,6 +62,8 @@ C: secure M: secure present addrspec>> present " (secure)" append ; +M: secure (server) addrspec>> (server) ; + CONSULT: inet secure addrspec>> ; M: secure resolve-host ( secure -- seq ) diff --git a/basis/io/sockets/secure/unix/unix.factor b/basis/io/sockets/secure/unix/unix.factor index a57dfd1e23..28cf6298c0 100644 --- a/basis/io/sockets/secure/unix/unix.factor +++ b/basis/io/sockets/secure/unix/unix.factor @@ -24,8 +24,6 @@ M: secure (get-local-address) addrspec>> (get-local-address) ; M: secure establish-connection ( client-out remote -- ) addrspec>> [ establish-connection ] [ secure-connection ] 2bi ; -M: secure (server) addrspec>> (server) ; - M: secure (accept) [ addrspec>> (accept) [ |dispose f ] dip