Paste: execute(

Author: abeaumont
Mode: factor
Date: Fri, 21 Jan 2011 16:19:28
Plain Text |
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 ;

New Annotation

Summary:
Author:
Mode:
Body: