Remove now useless THROW helper sub

rakudo · Dec 30, 2019 · 5162e6f · 5162e6f
1 parent ee1b991
commit 5162e6f
Show file tree

Hide file tree

Showing 7 changed files with 0 additions and 13 deletions.
diff --git a/src/core.c/control.pm6 b/src/core.c/control.pm6
@@ -6,13 +6,6 @@ my class PseudoStash { ... }
 my class Label { ... }
 class CompUnit::DependencySpecification { ... }
 
-sub THROW(int $type, Mu \arg) is raw {
-    my Mu $ex := nqp::newexception();
-    nqp::setpayload($ex, arg);
-    nqp::setextype($ex, $type);
-    nqp::throw($ex);
-    arg;
-}
 sub THROW-NIL(int $type --> Nil) {
     my Mu $ex := nqp::newexception();
 #    nqp::setpayload($ex, Nil);

diff --git a/t/02-rakudo/03-corekeys-6c.t b/t/02-rakudo/03-corekeys-6c.t
@@ -81,7 +81,6 @@ my @expected = (
   Q{&SUPPLY},
   Q{&SUPPLY-ONE-EMIT},
   Q{&SUPPLY-ONE-WHENEVER},
-  Q{&THROW},
   Q{&THROW-NIL},
   Q{&UNBASE},
   Q{&UNBASE_BRACKET},

diff --git a/t/02-rakudo/03-corekeys-6d.t b/t/02-rakudo/03-corekeys-6d.t
@@ -81,7 +81,6 @@ my @expected = (
     Q{&SUPPLY},
     Q{&SUPPLY-ONE-EMIT},
     Q{&SUPPLY-ONE-WHENEVER},
-    Q{&THROW},
     Q{&THROW-NIL},
     Q{&UNBASE},
     Q{&UNBASE_BRACKET},

diff --git a/t/02-rakudo/03-corekeys-6e.t b/t/02-rakudo/03-corekeys-6e.t
@@ -82,7 +82,6 @@ my @expected = (
     Q{&SUPPLY},
     Q{&SUPPLY-ONE-EMIT},
     Q{&SUPPLY-ONE-WHENEVER},
-    Q{&THROW},
     Q{&THROW-NIL},
     Q{&UNBASE},
     Q{&UNBASE_BRACKET},

diff --git a/t/02-rakudo/03-corekeys.t b/t/02-rakudo/03-corekeys.t
@@ -83,7 +83,6 @@ my @allowed =
       Q{&SUPPLY},
       Q{&SUPPLY-ONE-EMIT},
       Q{&SUPPLY-ONE-WHENEVER},
-      Q{&THROW},
       Q{&THROW-NIL},
       Q{&UNBASE},
       Q{&UNBASE_BRACKET},

diff --git a/t/02-rakudo/04-settingkeys-6c.t b/t/02-rakudo/04-settingkeys-6c.t
@@ -80,7 +80,6 @@ my %allowed = (
     Q{&SUPPLY},
     Q{&SUPPLY-ONE-EMIT},
     Q{&SUPPLY-ONE-WHENEVER},
-    Q{&THROW},
     Q{&THROW-NIL},
     Q{&UNBASE},
     Q{&UNBASE_BRACKET},

diff --git a/t/02-rakudo/04-settingkeys-6e.t b/t/02-rakudo/04-settingkeys-6e.t
@@ -79,7 +79,6 @@ my %allowed = (
     Q{&SUPPLY},
     Q{&SUPPLY-ONE-EMIT},
     Q{&SUPPLY-ONE-WHENEVER},
-    Q{&THROW},
     Q{&THROW-NIL},
     Q{&UNBASE},
     Q{&UNBASE_BRACKET},