Fixing compiler bug with redefining deferred words
							parent
							
								
									cb5c100f7c
								
							
						
					
					
						commit
						9a897f91ff
					
				| 
						 | 
				
			
			@ -238,3 +238,5 @@ DEFER: flushable-test-2
 | 
			
		|||
[ \ bx forget ] with-compilation-unit
 | 
			
		||||
 | 
			
		||||
[ t ] [ \ ax compiled-usage [ drop interned? ] assoc-all? ] unit-test
 | 
			
		||||
 | 
			
		||||
[ "one" "two" ] [ "DEFER: redefine-test1 : redefine-test2 redefine-test1 \"two\" ; : redefine-test1 \"one\" ; redefine-test2" eval ] unit-test
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -20,7 +20,6 @@ SYMBOL: compiled
 | 
			
		|||
    {
 | 
			
		||||
        { [ dup compiled get key? ] [ drop ] }
 | 
			
		||||
        { [ dup primitive? ] [ drop ] }
 | 
			
		||||
        { [ dup deferred? ] [ drop ] }
 | 
			
		||||
        { [ t ] [ dup compile-queue get set-at ] }
 | 
			
		||||
    } cond ;
 | 
			
		||||
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
		Reference in New Issue