Fix a bunch of incorrect pirop signatures that the slightly stricter …

…processing in QAST catches.
rakudo · Jul 21, 2012 · 6f79391 · 6f79391
1 parent e6609f3
commit 6f79391
Showing 1 changed file with 8 additions and 8 deletions.
diff --git a/src/core/control.pm b/src/core/control.pm
@@ -32,53 +32,53 @@ my &RETURN-PARCEL := -> Mu \$parcel {
 
 my &return-rw := -> |$ { 
     my $parcel := 
-        &RETURN-PARCEL(nqp::p6parcel(pir::perl6_current_args_rpa__PP(), Nil));
+        &RETURN-PARCEL(nqp::p6parcel(pir::perl6_current_args_rpa__P(), Nil));
     pir::perl6_return_from_routine__vP($parcel);
     $parcel
 };
 my &return := -> |$ {
     my $parcel := 
-        &RETURN-PARCEL(nqp::p6parcel(pir::perl6_current_args_rpa__PP(), Nil));
+        &RETURN-PARCEL(nqp::p6parcel(pir::perl6_current_args_rpa__P(), Nil));
     pir::perl6_return_from_routine__vP(nqp::p6recont_ro($parcel));
     $parcel
 };
 
 my &take-rw := -> |$ { 
     my $parcel := 
-        &RETURN-PARCEL(nqp::p6parcel(pir::perl6_current_args_rpa__PP(), Nil));
+        &RETURN-PARCEL(nqp::p6parcel(pir::perl6_current_args_rpa__P(), Nil));
     THROW($parcel, pir::const::CONTROL_TAKE) 
 };
 my &take := -> |$ { 
     my $parcel := 
-        &RETURN-PARCEL(nqp::p6parcel(pir::perl6_current_args_rpa__PP(), Nil));
+        &RETURN-PARCEL(nqp::p6parcel(pir::perl6_current_args_rpa__P(), Nil));
     THROW(nqp::p6recont_ro($parcel),
           pir::const::CONTROL_TAKE) 
 };
 
 my &last := -> |$ { 
     my $parcel := 
-        &RETURN-PARCEL(nqp::p6parcel(pir::perl6_current_args_rpa__PP(), Nil));
+        &RETURN-PARCEL(nqp::p6parcel(pir::perl6_current_args_rpa__P(), Nil));
     THROW(nqp::p6decont($parcel), 
           pir::const::CONTROL_LOOP_LAST) 
 };
 
 my &next := -> |$ { 
     my $parcel := 
-        &RETURN-PARCEL(nqp::p6parcel(pir::perl6_current_args_rpa__PP(), Nil));
+        &RETURN-PARCEL(nqp::p6parcel(pir::perl6_current_args_rpa__P(), Nil));
     THROW(nqp::p6decont($parcel), 
           pir::const::CONTROL_LOOP_NEXT) 
 };
 
 my &redo := -> |$ { 
     my $parcel := 
-        &RETURN-PARCEL(nqp::p6parcel(pir::perl6_current_args_rpa__PP(), Nil));
+        &RETURN-PARCEL(nqp::p6parcel(pir::perl6_current_args_rpa__P(), Nil));
     THROW(nqp::p6decont($parcel), 
           pir::const::CONTROL_LOOP_REDO) 
 };
 
 my &succeed := -> |$ { 
     my $parcel := 
-        &RETURN-PARCEL(nqp::p6parcel(pir::perl6_current_args_rpa__PP(), Nil));
+        &RETURN-PARCEL(nqp::p6parcel(pir::perl6_current_args_rpa__P(), Nil));
     THROW(nqp::p6decont($parcel), 
           pir::const::CONTROL_BREAK) 
 };