diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2013-01-15 01:05:39 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2013-01-15 01:05:39 +0100 |
| commit | 29c1793dc224597aa08af3bd7a0bdc39eb2babf8 (patch) | |
| tree | ad9f1becd854f7367dca41c6de43b40add46f417 | |
| parent | f4b60f5f6be0908b8bb19c1f2156ca48c9ac0cb3 (diff) | |
| download | guix-29c1793dc224597aa08af3bd7a0bdc39eb2babf8.tar guix-29c1793dc224597aa08af3bd7a0bdc39eb2babf8.tar.gz | |
build-system/gnu: Allow the `source' argument to be #f.
* guix/build-system/gnu.scm (gnu-build): Allow SOURCE to be #f.
| -rw-r--r-- | guix/build-system/gnu.scm | 6 |
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)) |