(use-modules (gnu packages) (gnu packages guile-xyz) (guix packages) (guix utils))
(package
  (inherit guile-lib)
  (arguments
   (substitute-keyword-arguments (package-arguments guile-lib)
     ((#:phases phases '%standard-phases)
      `(modify-phases ,phases
         (add-before 'build 'fix-htmlprag
           (lambda _
             (substitute* "src/htmlprag.scm"
               (("^[[:blank:]]*\\(p[[:blank:]]+\\. \\(body td th\\)\\).*")
                ""))))
         (add-before 'check 'skip-known-failure
           (lambda _
             ;; XXX: The above change causes one test failure among
             ;; the htmlprag tests.
             (setenv "XFAIL_TESTS" "htmlprag.scm"))))))))

Generated by Ricardo Wurmus using scpaste at Tue Mar 2 15:17:18 2021. CET. (original)