nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

gnu: chez-sockets: Replace texlive input with minimal texlive-union. 

* gnu/packages/chez.scm (chez-sockets)[native-inputs]: Replace texlive with minimal texlive-union.
master
Pierre Neidhardt 2018-12-14 23:01:16 +01:00
parent bc9319f42b
commit 1e0f2ae028
No known key found for this signature in database
GPG Key ID: 9BDCF497A4BBCC7F
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
gnu/packages/chez.scm
View File

@ -345,7 +345,7 @@ programming in Scheme.")
(native-inputs (native-inputs
`(("chez-scheme" ,chez-scheme) `(("chez-scheme" ,chez-scheme)
("chez-web" ,chez-web) ("chez-web" ,chez-web)
("texlive" ,texlive))) ("texlive" ,(texlive-union (list texlive-generic-pdftex)))))
(arguments (arguments
`(#:tests? #f ; no tests `(#:tests? #f ; no tests
#:phases #:phases
@ -361,11 +361,16 @@ programming in Scheme.")
(string-append var chez-h))) (string-append var chez-h)))
#t))) #t)))
(add-before 'build 'tangle (add-before 'build 'tangle
(lambda _ (lambda* (#:key inputs #:allow-other-keys)
(setenv "TEXINPUTS"
(string-append
(getcwd) ":"
(assoc-ref inputs "chez-web") "/share/texmf-local/tex/generic:"
":"))
;; just using "make" tries to build the .c files before ;; just using "make" tries to build the .c files before
;; they are created. ;; they are created.
(and (zero? (system* "make" "sockets")) (and (invoke "make" "sockets")
(zero? (system* "make"))))) (invoke "make"))))
(replace 'build (replace 'build
(lambda* (#:key outputs inputs #:allow-other-keys) (lambda* (#:key outputs inputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out")) (let* ((out (assoc-ref outputs "out"))