From 52e03d4d220abd2022ad6139d0684e98f3c681d0 Mon Sep 17 00:00:00 2001
From: Timothy Sample <samplet@ngyro.com>
Date: Fri, 4 Nov 2022 17:43:46 -0600
Subject: [PATCH] compat: Add 'exact-integer?' for Mes.

* gash/compat.scm [mes] (exact-integer?): New procedure.
---
 gash/compat.scm | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/gash/compat.scm b/gash/compat.scm
index dae71f4..d3aa64d 100644
--- a/gash/compat.scm
+++ b/gash/compat.scm
@@ -103,7 +103,8 @@
           call-with-input-string
           thunk?
           EXIT_SUCCESS
-          EXIT_FAILURE)
+          EXIT_FAILURE
+          exact-integer?)
 
   (define-macro (define-inlinable . rest)
     `(define ,@rest))
@@ -191,4 +192,7 @@
            (or (null? args) (symbol? args)))))
 
   (define EXIT_SUCCESS 0)
-  (define EXIT_FAILURE 1))
+  (define EXIT_FAILURE 1)
+
+  ;; Mes only has exact integers.
+  (define exact-integer? integer?))