factor: remove rest of double paren words.

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

diff --git a/basis/io/sockets/sockets.factor b/basis/io/sockets/sockets.factor
index 87d1436904a004aff7f1ba5e2ae40ea806be36d2..5bc245d989c6b03f99b481d1dd1db02f41909cf9 100644 (file)
--- a/basis/io/sockets/sockets.factor
+++ b/basis/io/sockets/sockets.factor
@@ -241,7 +241,7 @@ SYMBOL: bind-local-address
 
 GENERIC: establish-connection ( client-out remote -- )
 
-GENERIC: ((client)) ( remote -- handle )
+GENERIC: remote>handle ( remote -- handle )
 
 GENERIC: (client) ( remote -- client-in client-out local )
 
@@ -249,7 +249,7 @@ M: array (client) [ (client) 3array ] attempt-all first3 ;
 
 M: object (client) ( remote -- client-in client-out local )
     [
-        [ ((client)) ] keep
+        [ remote>handle ] keep
         [
             [ <ports> [ |dispose ] bi@ dup ] dip
             establish-connection