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:
Ludovic Courtès 2013-01-15 01:05:39 +01:00
parent f4b60f5f6b
commit 29c1793dc2
1 changed files with 4 additions and 2 deletions

View File

@ -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))