Disposables are now registered in a global disposables set. To take advantage of...

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

diff --git a/basis/io/ports/ports.factor b/basis/io/ports/ports.factor
index b2d71fd53514ffa07bbd6761dde6941f80db5a6d..49f6166e0068debd52c80c3985e5fab999a2fabc 100644 (file)
--- a/basis/io/ports/ports.factor
+++ b/basis/io/ports/ports.factor
@@ -10,14 +10,14 @@ IN: io.ports
 SYMBOL: default-buffer-size
 64 1024 * default-buffer-size set-global
 
-TUPLE: port handle timeout disposed ;
+TUPLE: port < disposable handle timeout ;
 
 M: port timeout timeout>> ;
 
 M: port set-timeout (>>timeout) ;
 
 : <port> ( handle class -- port )
-    new swap >>handle ; inline
+    new-disposable swap >>handle ; inline
 
 TUPLE: buffered-port < port { buffer buffer } ;