Check new "samewith" functionality

Raku · Aug 7, 2013 · 184ff24 · 184ff24
1 parent 7bf6bb8
commit 184ff24
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/S12-methods/defer-next.t b/S12-methods/defer-next.t
@@ -107,14 +107,14 @@ class BarNextWithInt is Foo {
         multi method l ( %t, *@list ) {
             $r ~= '%';
             $r ~= @list.join;
-            #nextwith( { %t{$^a} }, @list );  # not intended to work
-            &?ROUTINE.dispatcher()( self, { %t{$^a} }, @list );
+            samewith( { %t{$^a} }, @list );
+#            &?ROUTINE.dispatcher()( self, { %t{$^a} }, @list );
         }
         multi method l ( @t, *@list ) {
             $r ~= '@';
             $r ~= @list.join;
-            #nextwith( { @t[$^a] }, @list );  # not intended to work
-            &?ROUTINE.dispatcher()( self, { @t[$^a] }, @list );
+            samewith( { @t[$^a] }, @list );
+#            &?ROUTINE.dispatcher()( self, { @t[$^a] }, @list );
         }
     }