diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2014-07-12 22:11:12 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2014-07-12 23:17:53 +0200 |
| commit | 5d0984595c77b1b0acd84eb4684f786de5f95aff (patch) | |
| tree | 4355280e8ae766dfe46923d2e7b0eff6577be7d1 /guix/gexp.scm | |
| parent | f62435e2868f5db15cc2f31300630c8ec873dd58 (diff) | |
| download | gnu-guix-5d0984595c77b1b0acd84eb4684f786de5f95aff.tar gnu-guix-5d0984595c77b1b0acd84eb4684f786de5f95aff.tar.gz | |
gexp: Resolve the default system at '>>=' time.
Partly fixes <http://bugs.gnu.org/18002>.
Reported by David Thompson <dthompson2@worcester.edu>.
* guix/gexp.scm (gexp->derivation): Change #:system to default #f.
Use (%current-system) from within the 'mlet*'.
* tests/gexp.scm ("gexp->derivation, default system"): New test.
Diffstat (limited to 'guix/gexp.scm')
| -rw-r--r-- | guix/gexp.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/guix/gexp.scm b/guix/gexp.scm index 3b154d400f..7d6a882787 100644 --- a/guix/gexp.scm +++ b/guix/gexp.scm @@ -94,7 +94,7 @@ input list as a monadic value." (define* (gexp->derivation name exp #:key - (system (%current-system)) + system hash hash-algo recursive? (env-vars '()) (modules '()) @@ -114,6 +114,7 @@ The other arguments are as for 'derivation'." (define outputs (gexp-outputs exp)) (mlet* %store-monad ((inputs (lower-inputs (gexp-inputs exp))) + (system -> (or system (%current-system))) (sexp (gexp->sexp exp)) (builder (text-file (string-append name "-builder") (object->string sexp))) |