switch to strict numification by default

also make non-numeric sequences a bit more robust
rakudo · May 18, 2012 · 09e678f · 09e678f
1 parent c78c85c
commit 09e678f
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 2 deletions.
diff --git a/src/core/Str.pm b/src/core/Str.pm
@@ -187,7 +187,8 @@ my class Str does Stringy {
         $str;
     }
 
-    multi method Numeric(Str:D: :$strict) {
+    multi method Numeric(Str:D: :$strict = True) {
+        return 0 if self eq '';
         return nqp::p6box_n(pir::set__Ns('NaN')) if self eq 'NaN';
         my str $str = nqp::unbox_s(self);
         my int $eos = nqp::chars($str);

diff --git a/src/core/operators.pm b/src/core/operators.pm
@@ -84,7 +84,7 @@ multi infix:<but>(Mu:U \$obj, @roles) {
 sub SEQUENCE($left, $right, :$exclude_end) {
     my @right := $right.flat;
     my $endpoint = @right.shift;
-    my $infinite = $endpoint ~~ Whatever;
+    my $infinite = $endpoint ~~ Whatever || $endpoint === $Inf;
     $endpoint = Bool::False if $infinite;
     my $tail := ().list;
 
@@ -110,6 +110,9 @@ sub SEQUENCE($left, $right, :$exclude_end) {
             my $b = $tail[1];
             my $c = $tail[2];
             if $code.defined { }
+            elsif $a !~~ Numeric {
+                $code = succpred($tail[*-1] cmp $endpoint);
+            }
             elsif $tail.elems == 3 {
                 my $ab = $b - $a;
                 if $ab == $c - $b {