summaryrefslogtreecommitdiff
path: root/guix/build-system/gnu.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2013-01-15 01:05:39 +0100
committerLudovic Courtès <ludo@gnu.org>2013-01-15 01:05:39 +0100
commit29c1793dc224597aa08af3bd7a0bdc39eb2babf8 (patch)
treead9f1becd854f7367dca41c6de43b40add46f417 /guix/build-system/gnu.scm
parentf4b60f5f6be0908b8bb19c1f2156ca48c9ac0cb3 (diff)
build-system/gnu: Allow the `source' argument to be #f.
* guix/build-system/gnu.scm (gnu-build): Allow SOURCE to be #f.
Diffstat (limited to 'guix/build-system/gnu.scm')
-rw-r--r--guix/build-system/gnu.scm6
1 files changed, 4 insertions, 2 deletions
diff --git a/guix/build-system/gnu.scm b/guix/build-system/gnu.scm
index a3a770f631..3eaed4bd78 100644
--- a/guix/build-system/gnu.scm
+++ b/guix/build-system/gnu.scm
@@ -204,7 +204,7 @@ which could lead to gratuitous input divergence."
(define builder
`(begin
(use-modules ,@modules)
- (gnu-build #:source ,(if (derivation-path? source)
+ (gnu-build #:source ,(if (and source (derivation-path? source))
(derivation-path->output-path source)
source)
#:system ,system
@@ -239,7 +239,9 @@ which could lead to gratuitous input divergence."
(build-expression->derivation store name system
builder
- `(("source" ,source)
+ `(,@(if source
+ `(("source" ,source))
+ '())
,@inputs
,@(if implicit-inputs?
(parameterize ((%store store))