source-files.errors: Rename error-type.

diff --git a/basis/compiler/errors/errors.factor b/basis/compiler/errors/errors.factor
index 51a4f48cb8676e3dfb55bcff5a93f7d5a846dafe..ef78a2a0a40428f0a99a04ed3c835bf12606cc41 100644 (file)
--- a/basis/compiler/errors/errors.factor
+++ b/basis/compiler/errors/errors.factor
@@ -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" }

diff --git a/core/source-files/errors/errors.factor b/core/source-files/errors/errors.factor
index 5077ec0b67328bd547c3426f836251a1dd482bef..ea44db68a66d0c34c2f3631f41211411479ee347 100644 (file)
--- a/core/source-files/errors/errors.factor
+++ b/core/source-files/errors/errors.factor
@@ -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 )