Fail when trying to reverse an infinite list

rakudo · Mar 5, 2011 · bfdd78d · bfdd78d
1 parent d85450a
commit bfdd78d
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/core/List.pm b/src/core/List.pm
@@ -45,7 +45,9 @@ augment class List does Positional {
     }
 
     method reverse() {
-        # XXX: fail if infinite
+        if self.elems ~~ Inf {
+            fail "Cannot reverse an infinite list"
+        }
         Q:PIR {
             .local pmc self, items, parcel
             self = find_lex 'self'