[bug#32428] [PATCH] gnu: mit-scheme: Use minimal texlive-union.

[Pierre Neidhardt <ambrevar@gmail.com>]

* gnu/packages/scheme.scm (mit-scheme)[native-inputs]: Replace texlive with texlive-union.
---
 gnu/packages/scheme.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/scheme.scm b/gnu/packages/scheme.scm
index b30245cce..ef94aedad 100644
--- a/gnu/packages/scheme.scm
+++ b/gnu/packages/scheme.scm
@@ -104,6 +104,10 @@
                                (find-files "src/compiler" "^make\\.")))
              (chdir "src")
              #t))
+         ;; FIXME: the texlive-union insists on regenerating fonts.  It stores
+         ;; them in HOME, so it needs to be writeable.
+         (add-before 'build 'set-HOME
+           (lambda _ (setenv "HOME" "/tmp") #t))
          (replace 'build
            (lambda* (#:key system outputs #:allow-other-keys)
              (let ((out (assoc-ref outputs "out")))
@@ -150,7 +154,7 @@
                (delete-file-recursively old-doc-dir)
                #t))))))
     (native-inputs
-     `(("texlive" ,texlive)
+     `(("texlive" ,(texlive-union (list texlive-tex-texinfo)))
        ("texinfo" ,texinfo)
        ("m4" ,m4)))
     (inputs
-- 
2.18.0