[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
05/08: gnu: gcc-stripped: Use invoke instead of system*.
From: |
Mark H. Weaver |
Subject: |
05/08: gnu: gcc-stripped: Use invoke instead of system*. |
Date: |
Fri, 16 Mar 2018 06:48:59 -0400 (EDT) |
mhw pushed a commit to branch core-updates
in repository guix.
commit c2af3b0725a25daa0b66a9943334ed997478b985
Author: Mark H Weaver <address@hidden>
Date: Fri Mar 16 06:31:22 2018 -0400
gnu: gcc-stripped: Use invoke instead of system*.
* gnu/packages/make-bootstrap.scm (gcc-stripped)[arguments]: Use invoke.
All
phases return #t.
---
gnu/packages/make-bootstrap.scm | 15 +++++++++------
1 file changed, 9 insertions(+), 6 deletions(-)
diff --git a/gnu/packages/make-bootstrap.scm b/gnu/packages/make-bootstrap.scm
index e779376..eaef4c8 100644
--- a/gnu/packages/make-bootstrap.scm
+++ b/gnu/packages/make-bootstrap.scm
@@ -2,6 +2,7 @@
;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018 Ludovic Courtès
<address@hidden>
;;; Copyright © 2017 Efraim Flashner <address@hidden>
;;; Copyright © 2018 Tobias Geerinckx-Rice <address@hidden>
+;;; Copyright © 2018 Mark H Weaver <address@hidden>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -494,12 +495,14 @@ for `sh' in $PATH, and without nscd, and with static NSS
modules."
(string-append includedir "/c++"))
;; For native builds, check whether the binaries actually work.
- ,(if (%current-target-system)
- '#t
- '(every (lambda (prog)
- (zero? (system* (string-append gcc "/bin/" prog)
- "--version")))
- '("gcc" "g++" "cpp")))))))
+ ,@(if (%current-target-system)
+ '()
+ '((for-each (lambda (prog)
+ (invoke (string-append gcc "/bin/" prog)
+ "--version"))
+ '("gcc" "g++" "cpp"))))
+
+ #t))))
(inputs `(("gcc" ,%gcc-static)))))
(define %guile-static
- branch core-updates updated (5732008 -> d41ba52), Mark H. Weaver, 2018/03/16
- 03/08: gnu: acl: Use invoke instead of system*., Mark H. Weaver, 2018/03/16
- 04/08: gnu: libcap: Return #t from all phases., Mark H. Weaver, 2018/03/16
- 07/08: gnu: make-bootstrap: tarball-package: Use invoke instead of system*., Mark H. Weaver, 2018/03/16
- 01/08: build-system/gnu: Return a boolean from all phase procedures., Mark H. Weaver, 2018/03/16
- 06/08: gnu: guile-static-stripped: Use invoke instead of system*., Mark H. Weaver, 2018/03/16
- 05/08: gnu: gcc-stripped: Use invoke instead of system*.,
Mark H. Weaver <=
- 08/08: gnu: linux-libre-headers: Update to 4.14.26., Mark H. Weaver, 2018/03/16
- 02/08: gnu: autoconf-wrapper: Return #t from the builder., Mark H. Weaver, 2018/03/16