[A68-RECUTILS][COMMITTED] Use "set exit status"

[Jose E. Marchesi]

---
 src/rec-sex.a68  | 0
 utils/recsel.a68 | 9 +++------
 utils/recutl.a68 | 2 +-
 3 files changed, 4 insertions(+), 7 deletions(-)
 create mode 100644 src/rec-sex.a68

diff --git a/src/rec-sex.a68 b/src/rec-sex.a68
new file mode 100644
index 0000000..e69de29
diff --git a/utils/recsel.a68 b/utils/recsel.a68
index 0c3c47b..4c92633 100644
--- a/utils/recsel.a68
+++ b/utils/recsel.a68
@@ -17,8 +17,7 @@
   <http://www.gnu.org/licenses/>.
 #
 
-BEGIN INT exit status := 0;
-      STRING recfile;
+BEGIN STRING recfile;
 
       PR include "../src/rec.a68" PR
       PR include "recutl.a68" PR
@@ -91,8 +90,6 @@ Special options:\n\
 
       IF rec parse db (parser, db)
       THEN rec write (writer, db)
-      ELSE exit status := 1
-      FI;
-stop:
-      exit status
+      ELSE set exit status (1)
+      FI
 END
diff --git a/utils/recutl.a68 b/utils/recutl.a68
index e51bb4b..e94fdc1 100644
--- a/utils/recutl.a68
+++ b/utils/recutl.a68
@@ -24,7 +24,7 @@ STRING recutl version = "2.0";
 
 PROC recutl error = (STRING msg) VOID:
 BEGIN puts (recutl name + ": error: " + msg + "\n");
-      exit status := 1;
+      set exit status (1);
       stop
 END;
 
-- 
2.30.2