Rename method -> lookup-method in three places.

db4
Doug Coleman 2011-10-04 20:37:23 -07:00
parent be3eebf719
commit 685fc2f86f
3 changed files with 3 additions and 3 deletions

View File

@ -120,7 +120,7 @@ M: integer W 1 + ;
[ t ] [ "some-generic" "functors.tests" lookup >boolean ] unit-test [ t ] [ "some-generic" "functors.tests" lookup >boolean ] unit-test
[ t ] [ [ t ] [
"some-tuple" "functors.tests" lookup "some-tuple" "functors.tests" lookup
"some-generic" "functors.tests" lookup method >boolean "some-generic" "functors.tests" lookup lookup-method >boolean
] unit-test ; ] unit-test ;
[ t ] [ "some-symbol" "functors.tests" lookup >boolean ] unit-test [ t ] [ "some-symbol" "functors.tests" lookup >boolean ] unit-test

View File

@ -200,7 +200,7 @@ GENERIC: method-with-locals ( x -- y )
M:: sequence method-with-locals ( a -- y ) a reverse ; M:: sequence method-with-locals ( a -- y ) a reverse ;
[ t ] [ [ t ] [
[ \ sequence \ method-with-locals method see ] with-string-writer [ \ sequence \ method-with-locals lookup-method see ] with-string-writer
method-definition = method-definition =
] unit-test ] unit-test

View File

@ -9,7 +9,7 @@ M: integer foo + ;
"vocab:tools/crossref/test/foo.factor" run-file "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 [ t ] [ \ foo usage [ pathname? ] any? ] unit-test
! Issues with forget ! Issues with forget