Some next/last bugfixes for .map .

rakudo · Jul 24, 2010 · 27f7a5b · 27f7a5b
1 parent da9910a
commit 27f7a5b
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/builtins/MapIter.pir b/src/builtins/MapIter.pir
@@ -52,10 +52,11 @@ exceptions here.  Perl 6 source would be something like:
     value = getattribute exception, 'payload'
     push reify, value
     type = getattribute exception, 'type'
-    if type == .CONTROL_LOOP_LAST goto done
+    if type == .CONTROL_LOOP_LAST goto iter_reified
     if type != .CONTROL_LOOP_REDO goto iter_next
     list.'unshift'(args)
   iter_next:
+    .local pmc nextiter
     nextiter = new ['MapIter']
     setattribute nextiter, '&!block', block
     setattribute nextiter, '@!list', list