(define guile-lib/htmlprag-fixed ;; Guile-Lib with a hotfix for (htmlprag). (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 _ ;; When parsing ;; "<body><blockquote><p>foo</p>\n</blockquote></body>", ;; 'html->shtml' would mistakenly close 'blockquote' right ;; before <p>. This patch removes 'p' from the ;; 'parent-constraints' alist to fix that. (substitute* "src/htmlprag.scm" (("^[[:blank:]]*\\(p[[:blank:]]+\\. \\(body td th\\)\\).*") "")) #t)) (add-before 'check 'skip-known-failure (lambda _ ;; XXX: The above change causes one test failure among ;; the htmlprag tests. (setenv "XFAIL_TESTS" "htmlprag.scm") #t))))))))