Make .assuming work on multi-methods. Add the now-passing S06-curryin…

…g/assuming-and-mmd.t to spectest.data.
rakudo · Mar 25, 2009 · de86e8a · de86e8a
1 parent f11ad52
commit de86e8a
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/src/classes/Multi.pir b/src/classes/Multi.pir
@@ -17,8 +17,8 @@ Multi - Perl 6 multi-dispatch routine
 .sub 'onload' :anon :init :load
     .local pmc p6meta, proto
     p6meta = get_hll_global ['Perl6Object'], '$!P6META'
-    proto = p6meta.'new_class'('Multi', 'parent'=>'Perl6MultiSub Any')
-    p6meta.'register'('Perl6MultiSub', 'parent'=>proto, 'protoobject'=>proto)
+    proto = p6meta.'new_class'('Multi', 'parent'=>'Perl6MultiSub Code')
+    p6meta.'register'('Perl6MultiSub', 'protoobject'=>proto)
 .end
 
 .sub 'Scalar' :method

diff --git a/t/spectest.data b/t/spectest.data
@@ -186,6 +186,7 @@ S05-transliteration/with-closure.t
 S06-advanced_subroutine_features/recurse.t
 S06-advanced_subroutine_features/return2.t
 S06-advanced_subroutine_features/return.t
+S06-currying/assuming-and-mmd.t
 S06-currying/named.t
 S06-multi/proto.t
 S06-multi/syntax.t