From 03730f30387564b70686a85a800b25b4a089b6c3 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Wed, 18 Jun 2008 05:58:16 -0500
Subject: [PATCH] Fix see of M::

---
 extra/locals/locals-tests.factor | 13 ++++++++++++-
 extra/locals/locals.factor       |  4 ++--
 2 files changed, 14 insertions(+), 3 deletions(-)

diff --git a/extra/locals/locals-tests.factor b/extra/locals/locals-tests.factor
index 4e670cdac0..025e175bc2 100755
--- a/extra/locals/locals-tests.factor
+++ b/extra/locals/locals-tests.factor
@@ -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
diff --git a/extra/locals/locals.factor b/extra/locals/locals.factor
index 028502560f..cc6a7d093e 100755
--- a/extra/locals/locals.factor
+++ b/extra/locals/locals.factor
@@ -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>