mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2025-01-25 12:09:15 -05:00
gnu: ldc-bootstrap: Use INVOKE.
* gnu/packages/dlang.scm (ldc-bootstrap)[arguments]: Use INVOKE and unconditionally return #T from build phase.
This commit is contained in:
parent
27cd31e6a5
commit
4b81d5c4bc
1 changed files with 7 additions and 6 deletions
|
@ -103,12 +103,13 @@ (define-public ldc-bootstrap
|
||||||
(lambda* (#:key inputs #:allow-other-keys)
|
(lambda* (#:key inputs #:allow-other-keys)
|
||||||
(let ((unpack (lambda (source target)
|
(let ((unpack (lambda (source target)
|
||||||
(with-directory-excursion target
|
(with-directory-excursion target
|
||||||
(zero? (system* "tar" "xvf"
|
(invoke "tar" "xvf"
|
||||||
(assoc-ref inputs source)
|
(assoc-ref inputs source)
|
||||||
"--strip-components=1"))))))
|
"--strip-components=1")))))
|
||||||
(and (unpack "phobos-src" "runtime/phobos")
|
(unpack "phobos-src" "runtime/phobos")
|
||||||
(unpack "druntime-src" "runtime/druntime")
|
(unpack "druntime-src" "runtime/druntime")
|
||||||
(unpack "dmd-testsuite-src" "tests/d2/dmd-testsuite")))))
|
(unpack "dmd-testsuite-src" "tests/d2/dmd-testsuite")
|
||||||
|
#t)))
|
||||||
(add-after 'unpack-submodule-sources 'patch-dmd2
|
(add-after 'unpack-submodule-sources 'patch-dmd2
|
||||||
(lambda* (#:key inputs #:allow-other-keys)
|
(lambda* (#:key inputs #:allow-other-keys)
|
||||||
(substitute* "dmd2/root/port.c"
|
(substitute* "dmd2/root/port.c"
|
||||||
|
|
Loading…
Reference in a new issue