gnu: ldc: Use INVOKE.

* gnu/packages/dlang.scm (ldc)[arguments]: Use INVOKE.
This commit is contained in:
Ricardo Wurmus 2019-03-26 21:35:46 +01:00
parent 4b81d5c4bc
commit 68631e037b
No known key found for this signature in database
GPG key ID: 197A5888235FACAC

View file

@ -211,12 +211,12 @@ (define-public ldc
(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"))))
(add-after 'unpack-submodule-sources 'patch-phobos (add-after 'unpack-submodule-sources 'patch-phobos
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(substitute* '("runtime/phobos/std/process.d" (substitute* '("runtime/phobos/std/process.d"