08/17: gnu: mit-scheme: Fix building

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit b716d17e1cbaa1362ea495370acf0178aa8347cc
Author: Zac Berkowitz <zac.berkowitz@gmail.com>
AuthorDate: Sun Jun 25 10:27:08 2023 -0400

    gnu: mit-scheme: Fix building
    
    * gnu/packages/scheme.scm (mit-scheme)[arguments] Add 'set-env
      before 'configure, setting -Wno-array-parameter in CFLAGS and
      CPPFLAGS to ignore warning causing build break.
    
    Signed-off-by: Ludovic Courtès <ludo@gnu.org>
---
 gnu/packages/scheme.scm | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/gnu/packages/scheme.scm b/gnu/packages/scheme.scm
index 2337b60ee9..215ea741f8 100644
--- a/gnu/packages/scheme.scm
+++ b/gnu/packages/scheme.scm
@@ -138,6 +138,12 @@
                (("\\./configure")
                 (string-append (which "sh") " configure")))
              #t))
+         ;; disable array-parameter warnings that become errors while
+         ;; compiling microcode target
+         (add-before 'configure 'set-flags
+           (lambda* (#:key inputs #:allow-other-keys)
+             (setenv "CFLAGS" "-Wno-array-parameter")
+             (setenv "CPPFLAGS" "-Wno-array-parameter")))
          (replace 'build
            (lambda* (#:key system outputs #:allow-other-keys)
              (let ((out (assoc-ref outputs "out")))