io.monitors: fixes for disposable protocol

diff --git a/basis/io/monitors/macosx/macosx.factor b/basis/io/monitors/macosx/macosx.factor
index be1dcc64b6879fe31079baa9eb8f7eb1b05b0b03..96f178fb7967ad9dba79970c19dfdf8dace7bb69 100644 (file)
--- a/basis/io/monitors/macosx/macosx.factor
+++ b/basis/io/monitors/macosx/macosx.factor
@@ -17,7 +17,6 @@ M:: macosx (monitor) ( path recursive? mailbox -- monitor )
         path 1array 0 0 <event-stream> >>handle
     ] ;
 
-M: macosx-monitor dispose
-    handle>> dispose ;
+M: macosx-monitor dispose* handle>> dispose ;
 
 macosx set-io-backend

diff --git a/basis/io/monitors/monitors.factor b/basis/io/monitors/monitors.factor
index d8bb1ed48824955c21beea933ce1e35a8e984cd7..cb2f552a324187cf619a4dde2c72226a94ab1a4d 100644 (file)
--- a/basis/io/monitors/monitors.factor
+++ b/basis/io/monitors/monitors.factor
@@ -22,8 +22,6 @@ M: object dispose-monitors ;
 
 TUPLE: monitor < disposable path queue timeout ;
 
-M: monitor hashcode* path>> hashcode* ;
-
 M: monitor timeout timeout>> ;
 
 M: monitor set-timeout (>>timeout) ;