Fix see of M::

db4
Slava Pestov 2008-06-18 05:58:16 -05:00
parent 8f140402b3
commit 03730f3038
2 changed files with 14 additions and 3 deletions

View File

@ -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

View File

@ -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>