compiler.errors: Rename linkage-error.
							parent
							
								
									378300155b
								
							
						
					
					
						commit
						033711bf6a
					
				| 
						 | 
					@ -44,7 +44,7 @@ T{ error-type
 | 
				
			||||||
: <linkage-error> ( error word -- linkage-error )
 | 
					: <linkage-error> ( error word -- linkage-error )
 | 
				
			||||||
    \ linkage-error <definition-error> ;
 | 
					    \ linkage-error <definition-error> ;
 | 
				
			||||||
 | 
					
 | 
				
			||||||
: linkage-error ( name message word class -- )
 | 
					: set-linkage-error ( name message word class -- )
 | 
				
			||||||
    '[ _ boa ] dip <linkage-error> dup asset>> linkage-errors get set-at ; inline
 | 
					    '[ _ boa ] dip <linkage-error> dup asset>> linkage-errors get set-at ; inline
 | 
				
			||||||
 | 
					
 | 
				
			||||||
T{ error-type
 | 
					T{ error-type
 | 
				
			||||||
| 
						 | 
					@ -61,13 +61,13 @@ TUPLE: no-such-library name message ;
 | 
				
			||||||
 | 
					
 | 
				
			||||||
M: no-such-library summary drop "Library not found" ;
 | 
					M: no-such-library summary drop "Library not found" ;
 | 
				
			||||||
 | 
					
 | 
				
			||||||
: no-such-library-error ( name message word -- ) \ no-such-library linkage-error ;
 | 
					: no-such-library-error ( name message word -- ) \ no-such-library set-linkage-error ;
 | 
				
			||||||
 | 
					
 | 
				
			||||||
TUPLE: no-such-symbol name message ;
 | 
					TUPLE: no-such-symbol name message ;
 | 
				
			||||||
 | 
					
 | 
				
			||||||
M: no-such-symbol summary drop "Symbol not found" ;
 | 
					M: no-such-symbol summary drop "Symbol not found" ;
 | 
				
			||||||
 | 
					
 | 
				
			||||||
: no-such-symbol-error ( name message word -- ) \ no-such-symbol linkage-error ;
 | 
					: no-such-symbol-error ( name message word -- ) \ no-such-symbol set-linkage-error ;
 | 
				
			||||||
 | 
					
 | 
				
			||||||
ERROR: not-compiled word error ;
 | 
					ERROR: not-compiled word error ;
 | 
				
			||||||
 | 
					
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
		Loading…
	
		Reference in New Issue