Allow DWIM RHS of infix HYPER to be lazy

If the right hand side of an infix hyper like >>+>> is DWIM (the pointy
end points outwards), it may actually be lazy (even infinite) because we
shorten it to the length of the left hand side anyway.

Fixes (0,0,0,0,0,0) >>+>> (Slip(1,2) xx *)

src/core/metaops.pm

@@ -393,7 +393,7 @@ multi sub HYPER(&operator, Iterable:D \left, Iterable:D \right, :$dwim-left, :$d
         X::HyperOp::Infinite.new(:side<both>, :&operator).throw if right-iterator.is-lazy;
         X::HyperOp::Infinite.new(:side<left>, :&operator).throw;
     }
-    X::HyperOp::Infinite.new(:side<right>, :&operator).throw if right-iterator.is-lazy;
+    X::HyperOp::Infinite.new(:side<right>, :&operator).throw if right-iterator.is-lazy and not $dwim-right;
 
     my class DwimIterator does Iterator {
         has $!source;