06/06: gnu: stex-bootstrap: Guard against unsupported systems.

[guix-commits]

lilyp pushed a commit to branch master
in repository guix.

commit b8fc9169515ef1a6d6037c84e30ad308e5418b6f
Author: Liliana Marie Prikler <liliana.prikler@gmail.com>
AuthorDate: Tue Mar 8 20:25:20 2022 +0100

    gnu: stex-bootstrap: Guard against unsupported systems.
    
    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"