io.monitors: fix example (reported by levy in #concatenative0

Slava Pestov 2009-05-21 23:27:42 -05:00
parent 661e2a0994
commit 1ee4a509f2
1 changed files with 2 additions and 2 deletions

View File

@ -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"