[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
03/04: gnu: ldc-bootstrap: Use INVOKE.
From: |
guix-commits |
Subject: |
03/04: gnu: ldc-bootstrap: Use INVOKE. |
Date: |
Tue, 26 Mar 2019 18:14:21 -0400 (EDT) |
rekado pushed a commit to branch master
in repository guix.
commit 4b81d5c4bc442a12c681586f6c25a4ca0af44056
Author: Ricardo Wurmus <address@hidden>
Date: Tue Mar 26 21:31:07 2019 +0100
gnu: ldc-bootstrap: Use INVOKE.
* gnu/packages/dlang.scm (ldc-bootstrap)[arguments]: Use INVOKE and
unconditionally return #T from build phase.
---
gnu/packages/dlang.scm | 13 +++++++------
1 file changed, 7 insertions(+), 6 deletions(-)
diff --git a/gnu/packages/dlang.scm b/gnu/packages/dlang.scm
index 2530b8a..ddd747a 100644
--- a/gnu/packages/dlang.scm
+++ b/gnu/packages/dlang.scm
@@ -103,12 +103,13 @@ and freshness without requiring additional information
from the user.")
(lambda* (#:key inputs #:allow-other-keys)
(let ((unpack (lambda (source target)
(with-directory-excursion target
- (zero? (system* "tar" "xvf"
- (assoc-ref inputs source)
- "--strip-components=1"))))))
- (and (unpack "phobos-src" "runtime/phobos")
- (unpack "druntime-src" "runtime/druntime")
- (unpack "dmd-testsuite-src" "tests/d2/dmd-testsuite")))))
+ (invoke "tar" "xvf"
+ (assoc-ref inputs source)
+ "--strip-components=1")))))
+ (unpack "phobos-src" "runtime/phobos")
+ (unpack "druntime-src" "runtime/druntime")
+ (unpack "dmd-testsuite-src" "tests/d2/dmd-testsuite")
+ #t)))
(add-after 'unpack-submodule-sources 'patch-dmd2
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "dmd2/root/port.c"