From f5a4619c6906e5a5dada4d33b06276a403f84843 Mon Sep 17 00:00:00 2001
From: Timothy Sample <samplet@ngyro.com>
Date: Fri, 29 Apr 2022 21:46:00 -0600
Subject: [PATCH] compat: Add exit codes for Mes.

* gash/compat.scm [mes] (EXIT_SUCCESS): New variable.
[mes] (EXIT_FAILURE): New variable.
---
 gash/compat.scm | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/gash/compat.scm b/gash/compat.scm
index 1157508..dae71f4 100644
--- a/gash/compat.scm
+++ b/gash/compat.scm
@@ -101,7 +101,9 @@
           input-port?
           output-port?
           call-with-input-string
-          thunk?)
+          thunk?
+          EXIT_SUCCESS
+          EXIT_FAILURE)
 
   (define-macro (define-inlinable . rest)
     `(define ,@rest))
@@ -186,4 +188,7 @@
   (define (thunk? obj)
     (and (closure? obj)
          (let ((args (cadr (core:cdr obj))))
-           (or (null? args) (symbol? args))))))
+           (or (null? args) (symbol? args)))))
+
+  (define EXIT_SUCCESS 0)
+  (define EXIT_FAILURE 1))