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

db4
Slava Pestov 2009-05-21 23:27:42 -05:00
parent 4b2a2a9d0a
commit 327a213f93
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"