Partially fix #125628

Did not fix the '"a" x *' case, as per discussion at: http://irclog.perlgeek.de/perl6/2015-07-18#i_10918034
rakudo · Jul 18, 2015 · 059dac9 · 059dac9
1 parent 0bed6c5
commit 059dac9
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 2 deletions.
diff --git a/src/core/Stringy.pm b/src/core/Stringy.pm
@@ -1,3 +1,5 @@
+my class X::NYI { ... }
+
 my role Stringy { }
 
 multi sub infix:<eqv>(Stringy:D $a, Stringy:D $b) {
@@ -16,6 +18,11 @@ multi sub infix:<~>(\a, \b)      { a.Stringy ~ b.Stringy }
 proto sub infix:<x>(Mu $?, Mu $?)        { * }
 multi sub infix:<x>()              { fail "No zero-arg meaning for infix:<x>" }
 multi sub infix:<x>($x)            { $x.Stringy }
+multi sub infix:<x>($s, Num:D $n) {
+    $n == Inf
+      ?? fail X::NYI.new(:feature('Cat object'))
+      !! $s.Stringy x $n.Int;
+}
 multi sub infix:<x>($s, $n)        { $s.Stringy x ($n.Int // 0) }
 
 proto sub infix:<leg>(Mu $?, Mu $?) is pure { * }

diff --git a/src/core/array_slice.pm b/src/core/array_slice.pm
@@ -31,8 +31,6 @@ sub POSITIONS(\SELF, \pos) { # handle possible infinite slices
     }
 }
 
-my class X::NYI { ... }
-
 proto sub postcircumfix:<[ ]>(|) is nodal { * }
 
 multi sub postcircumfix:<[ ]>( \SELF, Any:U $type, |c ) is rw {