mason: filter out linakge errors from build reports

db4
Slava Pestov 2009-04-17 20:21:51 -05:00
parent b579d32e5c
commit a6ea915e09
1 changed files with 7 additions and 5 deletions

View File

@ -1,10 +1,10 @@
! Copyright (C) 2008, 2009 Eduardo Cavazos, Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors assocs benchmark bootstrap.stage2
compiler.errors generic help.html help.lint io.directories
USING: accessors assocs benchmark bootstrap.stage2 compiler.errors
source-files.errors generic help.html help.lint io.directories
io.encodings.utf8 io.files kernel mason.common math namespaces
prettyprint sequences sets sorting tools.test tools.time
tools.vocabs words system io tools.errors locals ;
prettyprint sequences sets sorting tools.test tools.time tools.vocabs
words system io tools.errors locals ;
IN: mason.test
: do-load ( -- )
@ -20,7 +20,9 @@ M: word word-vocabulary vocabulary>> ;
M: method-body word-vocabulary "method-generic" word-prop word-vocabulary ;
:: do-step ( errors summary-file details-file -- )
errors [ file>> ] map prune natural-sort summary-file to-file
errors
[ error-type +linkage-error+ eq? not ] filter
[ file>> ] map prune natural-sort summary-file to-file
errors details-file utf8 [ errors. ] with-file-writer ;
: do-compile-errors ( -- )