io.monitors: fix example (reported by levy in #concatenative0
parent
4b2a2a9d0a
commit
327a213f93
basis/io/monitors
|
@ -112,10 +112,10 @@ $nl
|
|||
{ $code
|
||||
"USE: io.monitors"
|
||||
": watch-loop ( monitor -- )"
|
||||
" dup next-change . nl nl flush watch-loop ;"
|
||||
" dup next-change path>> print nl nl flush watch-loop ;"
|
||||
""
|
||||
": watch-directory ( path -- )"
|
||||
" [ t [ watch-loop ] with-monitor ] with-monitors"
|
||||
" [ t [ watch-loop ] with-monitor ] with-monitors ;"
|
||||
} ;
|
||||
|
||||
ABOUT: "io.monitors"
|
||||
|
|
Loading…
Reference in New Issue