02/02: gnu: slang: Fix build on 32 bit systems.

[guix-commits]

apteryx pushed a commit to branch core-updates-frozen
in repository guix.

commit efb0a04ee05f43e86b3c1fcda867a123d8ed021a
Author: Maxim Cournoyer <maxim.cournoyer@gmail.com>
AuthorDate: Thu Nov 25 17:08:11 2021 -0500

    gnu: slang: Fix build on 32 bit systems.
    
    * gnu/packages/slang.scm (slang)[phases]{reduce-array-test-size}: New phase.
---
 gnu/packages/slang.scm | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/slang.scm b/gnu/packages/slang.scm
index 404a453..e3c9134 100644
--- a/gnu/packages/slang.scm
+++ b/gnu/packages/slang.scm
@@ -57,14 +57,21 @@
        #:parallel-build? #f  ; there's at least one race
        #:phases
        (modify-phases %standard-phases
+         (add-after 'unpack 'reduce-array-test-size
+           ;; Reduce the size of the array, otherwise the array.sl/array.slc
+           ;; tests fails with "Unable to create a multi-dimensional array of
+           ;; the desired size" on 32 bit systems.
+           (lambda _
+             (substitute* "src/test/array.sl"
+               (("10000,10000,10000,10000,10000,10000")
+                "100,100,100,100,100,100"))))
          (add-before 'configure 'substitute-before-config
            (lambda* (#:key inputs #:allow-other-keys)
              (let ((ncurses (assoc-ref inputs "ncurses")))
                (substitute* "configure"
                  (("MISC_TERMINFO_DIRS=\"\"")
                   (string-append "MISC_TERMINFO_DIRS="
-                                 "\"" ncurses "/share/terminfo" "\"")))
-               #t))))))
+                                 "\"" ncurses "/share/terminfo" "\"")))))))))
     (inputs
      `(("readline" ,readline)
        ("zlib" ,zlib)