gnu: guile-fibers: Skip some long tests on some architectures.

* gnu/packages/guile-xyz.scm (guile-fibers-1.1)[arguments]: Add custom
phase to skip some overly long tests.

gnu/packages/guile-xyz.scm

@@ -620,7 +620,19 @@ (define-public guile-fibers-1.1
     (build-system gnu-build-system)
     (arguments
      (list #:make-flags
-           #~(list "GUILE_AUTO_COMPILE=0")))
+           #~(list "GUILE_AUTO_COMPILE=0")
+           #:phases
+           (if (target-x86-64?)
+             #~%standard-phases
+             #~(modify-phases %standard-phases
+                 (add-before 'check 'disable-some-tests
+                   (lambda _
+                     ;; This test can take more than an hour on some systems.
+                     (substitute* "tests/basic.scm"
+                       ((".*spawn-fiber loop-to-1e4.*") ""))
+                     ;; These tests can take more than an hour and/or segfault.
+                     (substitute* "Makefile"
+                       (("tests/speedup.scm") ""))))))))
     (native-inputs
      (list texinfo pkg-config autoconf automake libtool
            guile-3.0            ;for 'guild compile