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

delete-file-errors calls notify-error-observers

db4
Slava Pestov 2009-04-13 20:25:31 -05:00
parent c01266300a
commit 28687d73c5
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
core/source-files/errors/errors.factor
View File

@ -23,12 +23,6 @@ GENERIC: error-type ( error -- type )
[ where [ first2 [ >>file ] [ >>line# ] bi* ] when* ] bi [ where [ first2 [ >>file ] [ >>line# ] bi* ] when* ] bi
swap >>error ; inline swap >>error ; inline
: delete-file-errors ( seq file type -- )
[
[ swap file>> = ] [ swap error-type = ]
bi-curry* bi and not
] 2curry filter-here ;
SYMBOL: error-types SYMBOL: error-types
error-types [ V{ } clone ] initialize error-types [ V{ } clone ] initialize
@ -68,3 +62,10 @@ SYMBOL: error-observers
: remove-error-observer ( observer -- ) error-observers get delq ; : remove-error-observer ( observer -- ) error-observers get delq ;
: notify-error-observers ( -- ) error-observers get [ errors-changed ] each ; : notify-error-observers ( -- ) error-observers get [ errors-changed ] each ;
: delete-file-errors ( seq file type -- )
[
[ swap file>> = ] [ swap error-type = ]
bi-curry* bi and not
] 2curry filter-here
notify-error-observers ;