file-monitor: use with-monitor.

diff --git a/extra/file-monitor/file-monitor.factor b/extra/file-monitor/file-monitor.factor
index 40109174386f92d761a6dfceb52bbc5baa945b03..a0306644c17b32500e1c1b8c7b2cdae8c9508b35 100644 (file)
--- a/extra/file-monitor/file-monitor.factor
+++ b/extra/file-monitor/file-monitor.factor
@@ -16,6 +16,6 @@ IN: file-monitor
 : file-monitor-main ( -- )
     command-line get ?first current-directory get or
     dup "Monitoring %s\n" printf flush
-    [ t <monitor> file-monitor-loop ] with-monitors ;
+    [ t [ file-monitor-loop ] with-monitor ] with-monitors ;
 
 MAIN: file-monitor-main