(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"))))))))