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: slib: Return #t from phases.

Browse source 
* gnu/packages/scheme.scm (slib)[arguments]: Substitute INVOKE for
SYSTEM*. Return #t rather than undefined from phases.
This commit is contained in:
Tobias Geerinckx-Rice 2018-06-26 16:39:45 +02:00
parent b69819d8c2
commit 2e14ca1982
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
1 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
gnu/packages/scheme.scm
View file

@ -882,12 +882,13 @@ (define-public slib
(add-after 'install 'remove-bin-share (add-after 'install 'remove-bin-share
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
(delete-file-recursively (delete-file-recursively
(string-append (assoc-ref outputs "out") "/bin")))) (string-append (assoc-ref outputs "out") "/bin"))
#t))
(replace 'configure (replace 'configure
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
(zero? (system* "./configure" (invoke "./configure"
(string-append "--prefix=" (string-append "--prefix="
(assoc-ref outputs "out"))))))))) (assoc-ref outputs "out"))))))))
(native-inputs `(("unzip" ,unzip) (native-inputs `(("unzip" ,unzip)
("texinfo" ,texinfo))) ("texinfo" ,texinfo)))
(home-page "http://people.csail.mit.edu/jaffer/SLIB.html") (home-page "http://people.csail.mit.edu/jaffer/SLIB.html")