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 { $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"