Somewhat unbreak candidate introspection on multis.

rakudo · May 2, 2010 · f82af0b · f82af0b
1 parent fad910a
commit f82af0b
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 1 deletion.
diff --git a/src/builtins/Multi.pir b/src/builtins/Multi.pir
@@ -22,6 +22,16 @@ Multi - Perl 6 multi-dispatch routine
     p6meta.'register'('MultiSub', 'parent'=>proto, 'protoobject'=>proto)
 .end
 
+=item candidates
+
+=cut
+
+.sub 'candidates' :method
+    $P0 = self.'ll_candidates'()
+    $P0 = '&infix:<,>'($P0 :flat)
+    .return ($P0)
+.end
+
 =item multi
 
 =cut

diff --git a/src/pmc/perl6multisub.pmc b/src/pmc/perl6multisub.pmc
@@ -1281,7 +1281,7 @@ Gets a list of all candidates.
 =cut
 
 */
-    METHOD PMC *candidates() {
+    METHOD PMC *ll_candidates() {
         PMC *candidates;
         GETATTR_Perl6MultiSub_candidates(interp, SELF, candidates);
         RETURN (PMC *candidates);