Language change: tuple slot setter words with stack effect ( value object -- ) are...

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

diff --git a/basis/io/ports/ports.factor b/basis/io/ports/ports.factor
index cd0843a70b45e025feb8ac6bb02ea704a7f170e5..6a30a1ed07c76b86ba11dbd873010f66a7e42e67 100644 (file)
--- a/basis/io/ports/ports.factor
+++ b/basis/io/ports/ports.factor
@@ -15,7 +15,7 @@ TUPLE: port < disposable handle timeout ;
 
 M: port timeout timeout>> ;
 
-M: port set-timeout (>>timeout) ;
+M: port set-timeout timeout<< ;
 
 : <port> ( handle class -- port )
     new-disposable swap >>handle ; inline