[PATCH] gash compat: Define EXIT_SUCCESS, EXIT_FAILURE for guile-2.0.12.

[Jan (janneke) Nieuwenhuizen]

This fixes Guix build on ARM, which has %bootstrap-guile 2.0.11.

* gash/compat.scm (EXIT_SUCCESS, EXIT_FAILURE): Define for guile
version below 2 0 12.
---
 gash/compat.scm | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/gash/compat.scm b/gash/compat.scm
index e98c7df5..337f3f6e 100644
--- a/gash/compat.scm
+++ b/gash/compat.scm
@@ -1,5 +1,6 @@
 ;;; Gash -- Guile As SHell
 ;;; Copyright © 2019 Timothy Sample <samplet@ngyro.com>
+;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen.
 ;;;
 ;;; This file is part of Gash.
 ;;;
@@ -54,13 +55,15 @@
 
 (if-guile-version-below (2 0 10)
   (begin
-    (define-public EXIT_SUCCESS 0)
-
-    (define-public EXIT_FAILURE 1)
-
     (define-public (exact-integer? x)
       (and (integer? x) (exact? x)))))
 
+(if-guile-version-below (2 0 12)
+  (begin
+    (define-public EXIT_SUCCESS 0)
+
+    (define-public EXIT_FAILURE 1)))
+
 (if-guile-version-below (2 2 0)
   (begin
     (define* (setvbuf port mode #:optional size)
-- 
Jan Nieuwenhuizen <janneke@gnu.org> | GNU LilyPond http://lilypond.org
Freelance IT http://JoyofSource.com | Avatar® http://AvatarAcademy.com