Make sure we don't flatten type objects on either side of a hyper

rakudo · Jul 24, 2013 · 340fc12 · 340fc12
1 parent e9a8263
commit 340fc12
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/core/metaops.pm b/src/core/metaops.pm
@@ -168,8 +168,8 @@ sub METAOP_HYPER_CALL(\list, |args) { hyper(-> $c { $c(|args) }, list) }
 
 proto sub hyper(|) { * }
 multi sub hyper(\op, \a, \b, :$dwim-left, :$dwim-right) { 
-    my @alist := a.flat;
-    my @blist := b.flat;
+    my @alist := a.DEFINITE ?? a.flat !! [a];
+    my @blist := b.DEFINITE ?? b.flat !! [b];
     my $elems = 0;
     if $dwim-left && $dwim-right { $elems = max(@alist.elems, @blist.elems) }
     elsif $dwim-left { $elems = @blist.elems }