file-monitor: use with-monitor.

2015-05-05 15:33:17 -07:00 · 2015-05-05 15:33:17 -07:00 · 2565c72b61
parent 501f990971
commit 2565c72b61
1 changed files with 1 additions and 1 deletions
--- 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