From b8fc9169515ef1a6d6037c84e30ad308e5418b6f Mon Sep 17 00:00:00 2001
From: Liliana Marie Prikler <liliana.prikler@gmail.com>
Date: Tue, 8 Mar 2022 20:25:20 +0100
Subject: gnu: stex-bootstrap: Guard against unsupported systems.
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

The current implementation of nix-system->chez-machine et al. is rather
brittle and fails in unexpected ways.  In the meantime while a better
replacement is being built, prevent falsy return values from causing errors,
such as a failing “guix pull”.  See <https://issues.guix.gnu.org/54292>.

* gnu/packages/chez.scm (stex-bootstrap)[maybe-compile]: Use and=> to only
call chez-machine->threaded if nix-system->chez-machine returns a truthy
value.
---
 gnu/packages/chez.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/chez.scm b/gnu/packages/chez.scm
index b3aadf3a78..d47225dbe5 100644
--- a/gnu/packages/chez.scm
+++ b/gnu/packages/chez.scm
@@ -604,8 +604,8 @@ Chez Scheme.")))
                         (define makefile
                           (string-append (getcwd) "/Makefile"))
                         (define machine
-                          #$(chez-machine->threaded
-                             (nix-system->chez-machine)))
+                          #$(and=> (nix-system->chez-machine)
+                                   chez-machine->threaded))
                         (with-directory-excursion
                             (search-input-directory outputs "/lib/stex")
                           (invoke "make"
-- 
cgit v1.2.3