From 86aeafbbbe17c2ff4c4b4bedcbc18667b81ad5f5 Mon Sep 17 00:00:00 2001
From: jnthn <jnthn@jnthn.net>
Date: Tue, 9 Jun 2009 23:55:00 +0200
Subject: [PATCH] Fix :tree support for .^methods.

---
 src/parrot/ClassHOW.pir | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/src/parrot/ClassHOW.pir b/src/parrot/ClassHOW.pir
index 8343e186251..4631483acbc 100644
--- a/src/parrot/ClassHOW.pir
+++ b/src/parrot/ClassHOW.pir
@@ -165,12 +165,11 @@ XXX Fix bugs with introspecting some built-in classes (List, Str...)
     if $I0 goto parent_it_loop
     cur_parent = getprop 'metaclass', cur_parent
     cur_parent = cur_parent.'WHAT'()
-    parent_methods = self.'methods'(cur_parent)
+    parent_methods = self.'methods'(cur_parent, adverbs :flat :named)
     if null tree goto not_tree
-    if tree goto flatten_done
+    unless tree goto not_tree
+    parent_methods = new 'Perl6Scalar', parent_methods
   not_tree:
-    parent_methods = parent_methods.'list'()
-  flatten_done:
     result_list.'push'(parent_methods)
     goto parent_it_loop
   parent_it_loop_end: