ui.tools.error-list: better sorting and output

db4
Slava Pestov 2009-04-13 19:42:53 -05:00
parent fd5ab25a09
commit ca1e8e0517
2 changed files with 4 additions and 4 deletions
basis
ui/tools/error-list

View File

@ -309,15 +309,14 @@ M: source-file-error error.
[
[
[ file>> [ % ": " % ] when* ]
[ line#>> [ # ": " % ] when* ]
[ summary % ] tri
[ line#>> [ # ": " % ] when* ] bi
] "" make
] [
[
presented set
bold font-style set
] H{ } make-assoc
] bi format nl
] bi format
] [ error>> error. ] bi ;
M: bad-effect summary

View File

@ -97,7 +97,8 @@ M: error-renderer column-titles
M: error-renderer column-alignment drop { 0 1 0 0 } ;
: sort-errors ( seq -- seq' )
[ [ [ file>> ] [ line#>> ] bi 2array ] compare ] sort ;
[ [ [ asset>> ] [ line#>> ] bi 2array ] keep ] { } map>assoc
sort-keys values ;
: file-matches? ( error pathname/f -- ? )
[ file>> ] [ dup [ string>> ] when ] bi* = ;