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