command_line does not return something that is usable as an exit value.

partcl · Dec 14, 2009 · a5e894d · a5e894d
1 parent d5e5a68
commit a5e894d
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/src/Partcl.pir b/src/Partcl.pir
@@ -41,7 +41,6 @@
     .lex '%LEXPAD', lexpad
 
     $P0 = compreg 'Partcl'
-    # Cannot tailcall here. (TT #1029)
-    $I1 = $P0.'command_line'(args)
-    exit $I1
+    $P0.'command_line'(args)
+    exit 0
 .end