Initial incomplete fake implementation of &fail

rakudo · Dec 7, 2009 · e71334b · e71334b
1 parent 0a236ac
commit e71334b
Showing 1 changed file with 20 additions and 0 deletions.
diff --git a/src/builtins/control.pir b/src/builtins/control.pir
@@ -36,6 +36,26 @@ src/builtins/control.pir - control flow related functions
     .return ()
 .end
 
+=item fail
+
+=cut
+
+# XXX Need to throw a Failure, not a Mu
+# XXX Need to check for 'use fatal'
+.sub '&fail'
+    .param pmc value :optional
+    .param int has_value :opt_flag
+    .local pmc ex, failure
+
+    failure = new ['Mu']
+
+    ex = root_new ['parrot';'Exception']
+    ex['payload'] = failure
+    ex['severity'] = .EXCEPT_ERROR
+    ex['type'] = .CONTROL_RETURN
+    throw ex
+.end
+
 =item continue
 
 =cut