[ 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
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
"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