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

Browse source 
* gnu/packages/scheme.scm (hop)[arguments]: Substitute INVOKE for
SYSTEM*.
This commit is contained in:
Tobias Geerinckx-Rice 2018-06-26 16:33:29 +02:00
parent d9a7fab647
commit 24674e6141
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
1 changed files with 8 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
gnu/packages/scheme.scm
View file

@ -314,15 +314,14 @@ (define-public hop
(replace 'configure (replace 'configure
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))) (let ((out (assoc-ref outputs "out")))
(zero? (invoke "./configure"
(system* "./configure" (string-append "--prefix=" out)
(string-append "--prefix=" out) (string-append "--blflags="
(string-append "--blflags=" ;; user flags completely override useful
;; user flags completely override useful ;; default flags, so repeat them here.
;; default flags, so repeat them here. "-copt \\$(CPICFLAGS) "
"-copt \\$(CPICFLAGS) " "-L \\$(BUILDLIBDIR) "
"-L \\$(BUILDLIBDIR) " "-ldopt -Wl,-rpath," out "/lib"))))))))
"-ldopt -Wl,-rpath," out "/lib")))))))))
(inputs `(("avahi" ,avahi) (inputs `(("avahi" ,avahi)
("bigloo" ,bigloo) ("bigloo" ,bigloo)
("libgc" ,libgc) ("libgc" ,libgc)