Rename method -> lookup-method in three places.
							parent
							
								
									be3eebf719
								
							
						
					
					
						commit
						685fc2f86f
					
				| 
						 | 
				
			
			@ -120,7 +120,7 @@ M: integer W 1 + ;
 | 
			
		|||
    [ t ] [ "some-generic" "functors.tests" lookup >boolean ] unit-test
 | 
			
		||||
    [ t ] [
 | 
			
		||||
        "some-tuple" "functors.tests" lookup
 | 
			
		||||
        "some-generic" "functors.tests" lookup method >boolean
 | 
			
		||||
        "some-generic" "functors.tests" lookup lookup-method >boolean
 | 
			
		||||
    ] unit-test ;
 | 
			
		||||
    [ t ] [ "some-symbol" "functors.tests" lookup >boolean ] unit-test
 | 
			
		||||
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -200,7 +200,7 @@ GENERIC: method-with-locals ( x -- y )
 | 
			
		|||
M:: sequence method-with-locals ( a -- y ) a reverse ;
 | 
			
		||||
 | 
			
		||||
[ t ] [
 | 
			
		||||
    [ \ sequence \ method-with-locals method see ] with-string-writer
 | 
			
		||||
    [ \ sequence \ method-with-locals lookup-method see ] with-string-writer
 | 
			
		||||
    method-definition =
 | 
			
		||||
] unit-test
 | 
			
		||||
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -9,7 +9,7 @@ M: integer foo + ;
 | 
			
		|||
 | 
			
		||||
"vocab:tools/crossref/test/foo.factor" run-file
 | 
			
		||||
 | 
			
		||||
[ t ] [ integer \ foo method \ + usage member? ] unit-test
 | 
			
		||||
[ t ] [ integer \ foo lookup-method \ + usage member? ] unit-test
 | 
			
		||||
[ t ] [ \ foo usage [ pathname? ] any? ] unit-test
 | 
			
		||||
 | 
			
		||||
! Issues with forget
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
		Reference in New Issue