diff options
| author | Tobias Geerinckx-Rice <me@tobias.gr> | 2018-06-26 16:33:29 +0200 |
|---|---|---|
| committer | Tobias Geerinckx-Rice <me@tobias.gr> | 2018-06-27 12:46:29 +0200 |
| commit | 24674e6141c089d8b4f1ece8cade44656853185d (patch) | |
| tree | 864b3e114d09e9614aee1644b2a4f90a155975dc | |
| parent | d9a7fab6471260465fa8a7b95b91e17bcf00b13f (diff) | |
| download | gnu-guix-24674e6141c089d8b4f1ece8cade44656853185d.tar gnu-guix-24674e6141c089d8b4f1ece8cade44656853185d.tar.gz | |
gnu: hop: Return #t from phases.
* gnu/packages/scheme.scm (hop)[arguments]: Substitute INVOKE for
SYSTEM*.
| -rw-r--r-- | gnu/packages/scheme.scm | 17 |
1 files changed, 8 insertions, 9 deletions
diff --git a/gnu/packages/scheme.scm b/gnu/packages/scheme.scm index 0b15ea8376..ddc4014d7f 100644 --- a/gnu/packages/scheme.scm +++ b/gnu/packages/scheme.scm @@ -314,15 +314,14 @@ Scheme and C programs and between Scheme and Java programs.") (replace 'configure (lambda* (#:key inputs outputs #:allow-other-keys) (let ((out (assoc-ref outputs "out"))) - (zero? - (system* "./configure" - (string-append "--prefix=" out) - (string-append "--blflags=" - ;; user flags completely override useful - ;; default flags, so repeat them here. - "-copt \\$(CPICFLAGS) " - "-L \\$(BUILDLIBDIR) " - "-ldopt -Wl,-rpath," out "/lib"))))))))) + (invoke "./configure" + (string-append "--prefix=" out) + (string-append "--blflags=" + ;; user flags completely override useful + ;; default flags, so repeat them here. + "-copt \\$(CPICFLAGS) " + "-L \\$(BUILDLIBDIR) " + "-ldopt -Wl,-rpath," out "/lib")))))))) (inputs `(("avahi" ,avahi) ("bigloo" ,bigloo) ("libgc" ,libgc) |