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

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

diff --git a/basis/io/monitors/monitors.factor b/basis/io/monitors/monitors.factor
index cc8cea37d21a5838e338c027a0be3e7b6f02cbdc..d8bb1ed48824955c21beea933ce1e35a8e984cd7 100644 (file)
--- a/basis/io/monitors/monitors.factor
+++ b/basis/io/monitors/monitors.factor
@@ -20,7 +20,7 @@ M: object dispose-monitors ;
         [ dispose-monitors ] [ ] cleanup
     ] with-scope ; inline
 
-TUPLE: monitor < identity-tuple path queue timeout ;
+TUPLE: monitor < disposable path queue timeout ;
 
 M: monitor hashcode* path>> hashcode* ;
 
@@ -29,7 +29,7 @@ M: monitor timeout timeout>> ;
 M: monitor set-timeout (>>timeout) ;
 
 : new-monitor ( path mailbox class -- monitor )
-    new
+    new-disposable
         swap >>queue
         swap >>path ; inline