steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

file-monitor: use with-monitor.

db4
John Benediktsson 2015-05-05 15:33:17 -07:00
parent 501f990971
commit 2565c72b61
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/file-monitor/file-monitor.factor
View File

@ -16,6 +16,6 @@ IN: file-monitor
: file-monitor-main ( -- ) : file-monitor-main ( -- )
command-line get ?first current-directory get or command-line get ?first current-directory get or
dup "Monitoring %s\n" printf flush 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 MAIN: file-monitor-main