ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 21:38:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

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

Browse source 
* gnu/packages/scheme.scm (mit-scheme)[native-inputs]: Replace texlive with texlive-union.
This commit is contained in:
Pierre Neidhardt 2018-08-13 18:04:42 +02:00
parent dece8c91a9
commit 9b02a79bb0
No known key found for this signature in database
GPG key ID: 9BDCF497A4BBCC7F
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
gnu/packages/scheme.scm
View file

@ -105,6 +105,10 @@ (define-public mit-scheme
(find-files "src/compiler" "^make\\."))) (find-files "src/compiler" "^make\\.")))
(chdir "src") (chdir "src")
#t)) #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 (replace 'build
(lambda* (#:key system outputs #:allow-other-keys) (lambda* (#:key system outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))) (let ((out (assoc-ref outputs "out")))
@ -151,7 +155,7 @@ (define-public mit-scheme
(delete-file-recursively old-doc-dir) (delete-file-recursively old-doc-dir)
#t)))))) #t))))))
(native-inputs (native-inputs
`(("texlive" ,texlive) `(("texlive" ,(texlive-union (list texlive-tex-texinfo)))
("texinfo" ,texinfo) ("texinfo" ,texinfo)
("m4" ,m4))) ("m4" ,m4)))
(inputs (inputs