1 USING: kernel io io.files io.pathnames io.monitors io.encodings.utf8 ;
4 : read-lines ( stream -- )
6 [ print read-lines ] [ 2drop flush ] if ;
8 : tail-file-loop ( stream monitor -- )
9 dup next-change drop over read-lines tail-file-loop ;
11 : tail-file ( file -- )
12 dup utf8 <file-reader> dup read-lines
13 swap parent-directory f <monitor>