Author: | abeaumont |
---|---|
Mode: | factor |
Date: | Fri, 21 Jan 2011 16:19:28 |
USING: kernel command-line namespaces sequences io.files io.encodings.utf8 io ; IN: file : parse-ok ( path -- ) utf8 file-lines [ print ] each ; : parse-fail ( word path -- ) utf8 file-lines [ execute( str -- ) ] each ;