Fix see of M::
parent
8f140402b3
commit
03730f3038
|
@ -1,6 +1,6 @@
|
||||||
USING: locals math sequences tools.test hashtables words kernel
|
USING: locals math sequences tools.test hashtables words kernel
|
||||||
namespaces arrays strings prettyprint io.streams.string parser
|
namespaces arrays strings prettyprint io.streams.string parser
|
||||||
accessors ;
|
accessors generic ;
|
||||||
IN: locals.tests
|
IN: locals.tests
|
||||||
|
|
||||||
:: foo ( a b -- a a ) a a ;
|
:: foo ( a b -- a a ) a a ;
|
||||||
|
@ -265,3 +265,14 @@ M:: fixnum next-method-test ( a -- b ) a call-next-method 1 + ;
|
||||||
[ \ a-word-with-locals see ] with-string-writer
|
[ \ a-word-with-locals see ] with-string-writer
|
||||||
new-definition =
|
new-definition =
|
||||||
] unit-test
|
] unit-test
|
||||||
|
|
||||||
|
: method-definition "USING: locals locals.tests sequences ;\nM:: sequence method-with-locals ( a -- y ) a reverse ;\n" ;
|
||||||
|
|
||||||
|
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
|
||||||
|
method-definition =
|
||||||
|
] unit-test
|
||||||
|
|
|
@ -405,8 +405,8 @@ M: lambda-memoized reset-word
|
||||||
|
|
||||||
M: lambda-method synopsis*
|
M: lambda-method synopsis*
|
||||||
dup dup dup definer.
|
dup dup dup definer.
|
||||||
"method-specializer" word-prop pprint*
|
"method-class" word-prop pprint-word
|
||||||
"method-generic" word-prop pprint*
|
"method-generic" word-prop pprint-word
|
||||||
method-stack-effect effect>string comment. ;
|
method-stack-effect effect>string comment. ;
|
||||||
|
|
||||||
PRIVATE>
|
PRIVATE>
|
||||||
|
|
Loading…
Reference in New Issue