Fix see of M::
parent
8f140402b3
commit
03730f3038
|
@ -1,6 +1,6 @@
|
|||
USING: locals math sequences tools.test hashtables words kernel
|
||||
namespaces arrays strings prettyprint io.streams.string parser
|
||||
accessors ;
|
||||
accessors generic ;
|
||||
IN: locals.tests
|
||||
|
||||
:: 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
|
||||
new-definition =
|
||||
] 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*
|
||||
dup dup dup definer.
|
||||
"method-specializer" word-prop pprint*
|
||||
"method-generic" word-prop pprint*
|
||||
"method-class" word-prop pprint-word
|
||||
"method-generic" word-prop pprint-word
|
||||
method-stack-effect effect>string comment. ;
|
||||
|
||||
PRIVATE>
|
||||
|
|
Loading…
Reference in New Issue