distinguish compositions of one-arg vs many-arg

rakudo · Oct 2, 2015 · 8a195fa · 8a195fa
1 parent e7ec205
commit 8a195fa
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/core/operators.pm b/src/core/operators.pm
@@ -631,7 +631,7 @@ sub infix:<orelse>(**@a) {
     $current;
 }
 
-sub infix:<∘> (&f, &g --> Block) { -> |args { f g |args } }
+sub infix:<∘> (&f, &g --> Block) { (&f).count > 1 ?? -> |args { f |g |args } !! -> |args { f g |args } }
 my &infix:<o> := &infix:<∘>;
 
 # vim: ft=perl6 expandtab sw=4