Revert "Make List.roll(1)/pick(1) match List.roll/pick"

http://irclog.perlgeek.de/perl6/2015-05-09#i_10577120
rakudo · May 9, 2015 · 835d9b2 · 835d9b2
1 parent 176f778
commit 835d9b2
Showing 1 changed file with 2 additions and 6 deletions.
diff --git a/src/core/List.pm b/src/core/List.pm
@@ -225,9 +225,7 @@ my class List does Positional { # declared in BOOTSTRAP
         ## of the list, resulting in an O(n) algorithm.
 
         my Int $elems = self.elems;
-        unless $elems {
-            return number == 1 ?? Nil !! ();
-        }
+        return () unless $elems;
 
         my int $n = number > $elems ?? $elems !! number.Int;
         return nqp::atpos($!items,$elems.rand.floor) if $n == 1;
@@ -400,9 +398,7 @@ my class List does Positional { # declared in BOOTSTRAP
 
         fail X::Cannot::Infinite.new(:action<.roll from>) if self.infinite;
         my $elems = self.elems;
-        unless $elems {
-            return number == 1 ?? Nil !! ();
-        }
+        return () unless $elems;
 
         my int $n = number.Int;
         return nqp::atpos($!items,$elems.rand.floor) if $n == 1;