[builtins/control.pir] copy in the exit function from master

rakudo · Feb 7, 2010 · 5cc8d5b · 5cc8d5b
1 parent c3371de
commit 5cc8d5b
Showing 1 changed file with 14 additions and 0 deletions.
diff --git a/src/builtins/control.pir b/src/builtins/control.pir
@@ -36,6 +36,20 @@ src/builtins/control.pir - control flow related functions
     .return ()
 .end
 
+=item exit
+
+=cut
+
+.sub '&exit'
+    .param int status     :optional
+    .param int has_status :opt_flag
+
+    if has_status goto x
+    status = 0
+  x:
+    exit status
+.end
+
 .sub '&warn'
     .param pmc list :slurpy
     .local string message