Cheat less with failures. They actually throw now.

rakudo · Feb 10, 2010 · 446afaf · 446afaf
1 parent 3a94b96
commit 446afaf
Showing 1 changed file with 9 additions and 2 deletions.
diff --git a/src/cheats/fail.pir b/src/cheats/fail.pir
@@ -7,6 +7,13 @@ Return a Failure object using C<args> as the failure message.
 .namespace []
 .sub '!FAIL'
     .param pmc args            :slurpy
-    $P0 = new ['Undef']
-    .return ($P0)
+    $P0 = new ['Exception']
+    $S0 = join '', args
+    $P1 = box $S0
+    setattribute $P0, 'message', $P1
+    $P1 = get_hll_global 'Exception'
+    $P0 = $P1.'new'($P0)
+    $P1 = get_hll_global 'Failure'
+    $P1 = $P1.'new'($P0)
+    .return ($P1)
 .end