01/01: gnu: mit-scheme: Use minimal texlive-union.

[Pierre Neidhardt]

ambrevar pushed a commit to branch master
in repository guix.

commit 9b02a79bb079f2746ef5e6eb2ff47d7d44e335a9
Author: Pierre Neidhardt <address@hidden>
Date:   Mon Aug 13 18:04:42 2018 +0200

    gnu: mit-scheme: Use minimal texlive-union.
    
    * 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 1e045a2..926169c 100644
--- a/gnu/packages/scheme.scm
+++ b/gnu/packages/scheme.scm
@@ -105,6 +105,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")))
@@ -151,7 +155,7 @@
                (delete-file-recursively old-doc-dir)
                #t))))))
     (native-inputs
-     `(("texlive" ,texlive)
+     `(("texlive" ,(texlive-union (list texlive-tex-texinfo)))
        ("texinfo" ,texinfo)
        ("m4" ,m4)))
     (inputs