Fix bootstrap
							parent
							
								
									61836bc69a
								
							
						
					
					
						commit
						c2c07f8b22
					
				| 
						 | 
				
			
			@ -95,10 +95,10 @@ PRIVATE>
 | 
			
		|||
        "To define one, refer to \\ MAIN: help" print
 | 
			
		||||
    ] ?if ;
 | 
			
		||||
 | 
			
		||||
<PRIVATE
 | 
			
		||||
 | 
			
		||||
SYMBOL: blacklist
 | 
			
		||||
 | 
			
		||||
<PRIVATE
 | 
			
		||||
 | 
			
		||||
: add-to-blacklist ( error vocab -- )
 | 
			
		||||
    vocab-name blacklist get dup [ set-at ] [ 3drop ] if ;
 | 
			
		||||
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
		Reference in New Issue