infix:<~> needs list associative implementation

rakudo · Mar 31, 2015 · 978607a · 978607a
1 parent a7b6849
commit 978607a
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/src/core/Str.pm b/src/core/Str.pm
@@ -1404,6 +1404,7 @@ multi sub infix:<~>(Str:D \a, Str:D \b) returns Str:D {
     nqp::p6box_s(nqp::concat(nqp::unbox_s(a), nqp::unbox_s(b)))
 }
 multi sub infix:<~>(str $a, str $b) returns str { nqp::concat($a, $b) }
+multi sub infix:<~>(*@args) returns Str:D { @args.join }
 
 multi sub infix:<x>(Str:D $s, Int:D $repetition) returns Str:D {
     $repetition < 0

diff --git a/src/core/Stringy.pm b/src/core/Stringy.pm
@@ -9,7 +9,7 @@ multi sub prefix:<~>(\a)          { a.Stringy }
 multi sub prefix:<~>(int $a)      { nqp::p6box_s($a) }
 multi sub prefix:<~>(num $a)      { nqp::p6box_s($a) }
 
-proto sub infix:<~>(Mu $?, Mu $?) is pure { * }
+proto sub infix:<~>(|) is pure { * }
 multi sub infix:<~>($x = '')       { $x.Stringy }
 multi sub infix:<~>(\a, \b)      { a.Stringy ~ b.Stringy }