<error-model> ( visible-errors model -- model' )


Vocabulary
ui.tools.error-list

Inputs
visible-errorsan object
modelan object


Outputs
model'an object


Definition
USING: assocs kernel models.arrow.smart sequences
source-files.errors ;

IN: ui.tools.error-list

: <error-model> ( visible-errors model -- model' )
[ swap '[ error-type _ at ] filter ] <smart-arrow> ;