build-system/gnu: Allow the `source' argument to be #f.
* guix/build-system/gnu.scm (gnu-build): Allow SOURCE to be #f.
This commit is contained in:
parent
f4b60f5f6b
commit
29c1793dc2
|
@ -204,7 +204,7 @@ which could lead to gratuitous input divergence."
|
||||||
(define builder
|
(define builder
|
||||||
`(begin
|
`(begin
|
||||||
(use-modules ,@modules)
|
(use-modules ,@modules)
|
||||||
(gnu-build #:source ,(if (derivation-path? source)
|
(gnu-build #:source ,(if (and source (derivation-path? source))
|
||||||
(derivation-path->output-path source)
|
(derivation-path->output-path source)
|
||||||
source)
|
source)
|
||||||
#:system ,system
|
#:system ,system
|
||||||
|
@ -239,7 +239,9 @@ which could lead to gratuitous input divergence."
|
||||||
|
|
||||||
(build-expression->derivation store name system
|
(build-expression->derivation store name system
|
||||||
builder
|
builder
|
||||||
`(("source" ,source)
|
`(,@(if source
|
||||||
|
`(("source" ,source))
|
||||||
|
'())
|
||||||
,@inputs
|
,@inputs
|
||||||
,@(if implicit-inputs?
|
,@(if implicit-inputs?
|
||||||
(parameterize ((%store store))
|
(parameterize ((%store store))
|
||||||
|
|
Loading…
Reference in New Issue