[GODCC][COMMITTED] Use "set exit status"

[Jose E. Marchesi]

---
 src/godcc.a68 | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

diff --git a/src/godcc.a68 b/src/godcc.a68
index 60e598c..a831e00 100644
--- a/src/godcc.a68
+++ b/src/godcc.a68
@@ -30,7 +30,6 @@
 #
 
 BEGIN STRING godcc version = "1.0";
-      INT exit status := 0;
 
       # Include some facilities.  #
 
@@ -48,7 +47,7 @@ BEGIN STRING godcc version = "1.0";
 
       PROC error = (STRING msg) VOID:
       BEGIN puts ("godcc: error: " + msg + "\n");
-            exit status := 1;
+            set exit status (1);
             stop
       END;
 
@@ -401,8 +400,5 @@ BEGIN STRING godcc version = "1.0";
                     FALSE
                ELSE error ("unknown subcommand " + no opt arg);
                     SKIP
-               FI);
-
-stop:
-      exit status
+               FI)
 END
-- 
2.30.2