basis: removing unnecessary method stack effects.

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

diff --git a/basis/io/sockets/secure/windows/windows.factor b/basis/io/sockets/secure/windows/windows.factor
index 815200c11b89157e2e98be56c709ff9373e93b93..16de5da82b950b393a8a4f136389c664e80c4856 100644 (file)
--- a/basis/io/sockets/secure/windows/windows.factor
+++ b/basis/io/sockets/secure/windows/windows.factor
@@ -57,14 +57,14 @@ M: openssl ssl-certificate-verification-supported? f ;
 
 M: windows socket-handle handle>> alien-address ;
 
-M: secure remote>handle ( addrspec -- handle )
+M: secure remote>handle
     [ addrspec>> remote>handle ] [ hostname>> ] bi <ssl-socket> ;
 
 GENERIC: windows-socket-handle ( obj -- handle )
 M: ssl-handle windows-socket-handle file>> ;
 M: win32-socket windows-socket-handle ;
 
-M: secure (get-local-address) ( handle remote -- sockaddr )
+M: secure (get-local-address)
     [ windows-socket-handle ] [ addrspec>> ] bi* (get-local-address) ;
 
 M: secure parse-sockaddr addrspec>> parse-sockaddr f <secure> ;