From 2e115dc5c398fbf0cdea6d3771dcb4d5c9ad65c1 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Fri, 24 Apr 2009 00:20:33 -0500
Subject: [PATCH] Better prettyprinting of method-body instances

---
 basis/help/help.factor                   |  2 +-
 basis/prettyprint/backend/backend.factor | 15 ++++++++-------
 2 files changed, 9 insertions(+), 8 deletions(-)

diff --git a/basis/help/help.factor b/basis/help/help.factor
index 956bc220e1..6e09e298f4 100644
--- a/basis/help/help.factor
+++ b/basis/help/help.factor
@@ -54,7 +54,7 @@ M: word article-title
     dup [ parsing-word? ] [ symbol? ] bi or [
         name>> 
     ] [
-        [ name>> ]
+        [ unparse ]
         [ stack-effect [ effect>string " " prepend ] [ "" ] if* ] bi
         append
     ] if ;
diff --git a/basis/prettyprint/backend/backend.factor b/basis/prettyprint/backend/backend.factor
index 8004c1141f..1976c84fd1 100644
--- a/basis/prettyprint/backend/backend.factor
+++ b/basis/prettyprint/backend/backend.factor
@@ -35,8 +35,8 @@ M: effect pprint* effect>string "(" ")" surround text ;
     name>> "( no name )" or ;
 
 : pprint-word ( word -- )
-    dup record-vocab
-    dup word-name* swap word-style styled-text ;
+    [ record-vocab ]
+    [ [ word-name* ] [ word-style ] bi styled-text ] bi ;
 
 : pprint-prefix ( word quot -- )
     <block swap pprint-word call block> ; inline
@@ -48,11 +48,12 @@ M: word pprint*
     [ pprint-word ] [ ?start-group ] [ ?end-group ] tri ;
 
 M: method-body pprint*
-    <block
-    \ M\ pprint-word
-    [ "method-class" word-prop pprint-word ]
-    [ "method-generic" word-prop pprint-word ] bi
-    block> ;
+    [
+        [
+            [ "M\\ " % "method-class" word-prop word-name* % ]
+            [ " " % "method-generic" word-prop word-name* % ] bi
+        ] "" make
+    ] [ word-style ] bi styled-text ;
 
 M: real pprint* number>string text ;