Add [exit]

partcl · Dec 1, 2009 · c76b570 · c76b570
1 parent 1dbaf7a
commit c76b570
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/src/PmTcl/commands/main.pm b/src/PmTcl/commands/main.pm
@@ -108,6 +108,14 @@ our sub eval(*@args) {
     &sub();
 }
 
+our sub exit(*@args) {
+    if +@args > 1 {
+        error('wrong # args: should be "exit ?returnCode?"');
+    }
+    my $code := @args[0] // 0;
+    pir::exit__vi($code);   
+}
+
 our sub expr(*@args) { 
     my $code := pir::join(' ', @args);
     our %EXPRCACHE;