Fix return value of take/take-rw.

rakudo · Nov 5, 2012 · ef70aad · ef70aad
1 parent e472c9b
commit ef70aad
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/src/core/control.pm b/src/core/control.pm
@@ -47,13 +47,14 @@ my &return := -> | {
 my &take-rw := -> | { 
     my $parcel := 
         &RETURN-PARCEL(nqp::p6parcel(pir::perl6_current_args_rpa__P(), Nil));
-    THROW($parcel, pir::const::CONTROL_TAKE) 
+    THROW($parcel, pir::const::CONTROL_TAKE);
+    $parcel
 };
 my &take := -> | { 
     my $parcel := 
         &RETURN-PARCEL(nqp::p6parcel(pir::perl6_current_args_rpa__P(), Nil));
-    THROW(nqp::p6recont_ro($parcel),
-          pir::const::CONTROL_TAKE) 
+    THROW(nqp::p6recont_ro($parcel), pir::const::CONTROL_TAKE);
+    $parcel
 };
 
 my &last := -> | {