Updating tests for method-spec removal
							parent
							
								
									fb246e2c85
								
							
						
					
					
						commit
						7bf0a46d3d
					
				| 
						 | 
				
			
			@ -174,8 +174,7 @@ GENERIC: update-methods ( class seq -- )
 | 
			
		|||
        [ forget ] [ drop ] if
 | 
			
		||||
    ] [ 2drop ] if ;
 | 
			
		||||
 | 
			
		||||
: forget-methods ( class -- )
 | 
			
		||||
    [ implementors ] [ [ swap 2array ] curry ] bi map forget-all ;
 | 
			
		||||
GENERIC: forget-methods ( class -- )
 | 
			
		||||
 | 
			
		||||
GENERIC: class-forgotten ( use class -- )
 | 
			
		||||
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -133,7 +133,7 @@ M: integer forget-robustness-generic ;
 | 
			
		|||
[
 | 
			
		||||
    [ ] [ \ forget-robustness-generic forget ] unit-test
 | 
			
		||||
    [ ] [ \ forget-robustness forget ] unit-test
 | 
			
		||||
    [ ] [ { forget-robustness forget-robustness-generic } forget ] unit-test
 | 
			
		||||
    [ ] [ M\ forget-robustness forget-robustness-generic forget ] unit-test
 | 
			
		||||
] with-compilation-unit
 | 
			
		||||
 | 
			
		||||
! rapido found this one
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -188,5 +188,8 @@ M: generic subwords
 | 
			
		|||
M: generic forget*
 | 
			
		||||
    [ subwords forget-all ] [ call-next-method ] bi ;
 | 
			
		||||
 | 
			
		||||
M: class forget-methods
 | 
			
		||||
    [ implementors ] [ [ swap method ] curry ] bi map forget-all ;
 | 
			
		||||
 | 
			
		||||
: xref-generics ( -- )
 | 
			
		||||
    all-words [ subwords [ xref ] each ] each ;
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
		Reference in New Issue