make Any.elems==1 and Any.list==(Any)

... as discussed with jnhtn and others. This fixes the issue that you were not able to iterate over a single type object.
rakudo · Aug 28, 2015 · 348886d · 348886d
1 parent 30cc6a3
commit 348886d
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/src/core/Any.pm b/src/core/Any.pm
@@ -64,7 +64,7 @@ my class Any { # declared in BOOTSTRAP
     }
 
     proto method list(|) is nodal { * }
-    multi method list(Any:U:) { infix:<,>() }
+    multi method list(Any:U:) { infix:<,>(self) }
     multi method list(Any:D:) { infix:<,>(self) }
 
     proto method flat(|) is nodal { * }
@@ -90,11 +90,11 @@ my class Any { # declared in BOOTSTRAP
     multi method Hash() { self.hash.Hash }
 
     proto method elems(|) is nodal { * }
-    multi method elems(Any:U:) { 0 }
+    multi method elems(Any:U:) { 1 }
     multi method elems(Any:D:) { self.list.elems }
 
     proto method end(|) is nodal { * }
-    multi method end(Any:U:) { -1 }
+    multi method end(Any:U:) { 0 }
     multi method end(Any:D:) { self.list.end }
 
     proto method keys(|) is nodal { * }

diff --git a/src/core/Str.pm b/src/core/Str.pm
@@ -957,7 +957,7 @@ my class Str does Stringy { # declared in BOOTSTRAP
         my $delim-str        = $delimiter.Str;
         my str $self-string  = self;
         my str $match-string = $delim-str;
-        return unless nqp::chars($self-string) || nqp::chars($match-string);
+        return ().list unless nqp::chars($self-string) || nqp::chars($match-string);
 
         my int $l = nqp::istype($limit, Whatever) || $limit == Inf
             ?? nqp::chars($self-string) + 1