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

source-files.errors: Rename error-type.

db4
Doug Coleman 2013-03-23 21:25:19 -07:00
parent fa0b4c1a5b
commit ee4f4ec997
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/compiler/errors/errors.factor
View File

@ -29,7 +29,7 @@ M: linkage-error error-type drop +linkage-error+ ;
: save-compiler-error ( error -- )
dup asset>> compiler-errors get-global set-at ;
T{ error-type
T{ error-type-holder
{ type +compiler-error+ }
{ word ":errors" }
{ plural "compiler errors" }
@ -47,7 +47,7 @@ T{ error-type
: set-linkage-error ( name message word class -- )
'[ _ boa ] dip <linkage-error> dup asset>> linkage-errors get set-at ; inline
T{ error-type
T{ error-type-holder
{ type +linkage-error+ }
{ word ":linkage" }
{ plural "linkage errors" }
@ -71,7 +71,7 @@ M: no-such-symbol summary drop "Symbol not found" ;
ERROR: not-compiled word error ;
T{ error-type
T{ error-type-holder
{ type +user-init-error+ }
{ word ":user-init-errors" }
{ plural "rc file errors" }

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

@ -25,6 +25,8 @@ M: source-file-error compute-restarts error>> compute-restarts ;
: group-by-source-file ( errors -- assoc )
H{ } clone [ [ push-at ] curry [ dup file>> ] prepose each ] keep ;
TUPLE: error-type-holder type word plural icon quot forget-quot { fatal? initial: t } ;
TUPLE: error-type type word plural icon quot forget-quot { fatal? initial: t } ;
GENERIC: error-type ( error -- type )