continuations[-docs]: add the finally word

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

diff --git a/basis/io/monitors/monitors.factor b/basis/io/monitors/monitors.factor
index c0286f594d1797fcd5720ad28c49e2a0589e4fa5..6891f9983f0f7b5601011118516852aeac78d20d 100644 (file)
--- a/basis/io/monitors/monitors.factor
+++ b/basis/io/monitors/monitors.factor
@@ -16,7 +16,7 @@ M: object dispose-monitors ;
 : with-monitors ( quot -- )
     [
         init-monitors
-        [ dispose-monitors ] [ ] cleanup
+        [ dispose-monitors ] finally
     ] with-scope ; inline
 
 TUPLE: monitor < disposable path queue timeout ;