Fix failure when unable to determine a sequence (RT #98678).

rakudo · Sep 9, 2011 · f9d94fe · f9d94fe
1 parent 5d26134
commit f9d94fe
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/src/core/operators.pm b/src/core/operators.pm
@@ -100,8 +100,9 @@ sub SEQUENCE($left, $right, :$exclude_end) {
             elsif $tail.elems == 0 {
                 $code = {()}
             }
-            fail "unable to deduce sequence" unless $code.defined;
-            $value = generate($code);
+            $value = $code.defined 
+                       ?? generate($code) 
+                       !! (sub { fail "unable to deduce sequence" })();
         }
         take $value unless $exclude_end;
     }, :$infinite), @right).list;