steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
basis/debugger/debugger.factor
View File

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

3
basis/ui/tools/error-list/error-list.factor
View File

@ -97,7 +97,8 @@ M: error-renderer column-titles
M: error-renderer column-alignment drop { 0 1 0 0 } ; M: error-renderer column-alignment drop { 0 1 0 0 } ;
: sort-errors ( seq -- seq' ) : 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-matches? ( error pathname/f -- ? )
[ file>> ] [ dup [ string>> ] when ] bi* = ; [ file>> ] [ dup [ string>> ] when ] bi* = ;