sort-errors ( seq -- seq' )

Vocabulary

ui.tools.error-list

Inputs

seq

an object

Outputs

seq'

an object

Definition

USING: accessors arrays assocs kernel prettyprint sorting ;

IN: ui.tools.error-list

: sort-errors ( seq -- seq' )
    [
        [ [ line#>> 0 or ] [ asset>> unparse-short ] bi 2array ]
        keep
    ] { } map>assoc sort-keys values ;