diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2012-10-25 23:41:15 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2012-10-25 23:41:15 +0200 |
| commit | b642e4b853e9e3b8bbf5f5769fb602c6f4191347 (patch) | |
| tree | 712af8e0432bd0816f8819c3a2db47aa2d59c578 /distro/packages | |
| parent | ae39d1b233c93bcca0c27a64d59040e50e2a0955 (diff) | |
| download | guix-b642e4b853e9e3b8bbf5f5769fb602c6f4191347.tar.gz | |
packages: Pass `system' around.
* guix/packages.scm (package-source-derivation): Add `system' parameter. Pass it to METHOD. (package-derivation)[expand-input]: Pass SYSTEM to `package-derivation' and `package-source-derivation'. * distro/packages/base.scm (package-with-bootstrap-guile)[boot]: Pass SYSTEM to FETCH.
Diffstat (limited to 'distro/packages')
| -rw-r--r-- | distro/packages/base.scm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/distro/packages/base.scm b/distro/packages/base.scm index 9b881d7eb1..fd9f7055d2 100644 --- a/distro/packages/base.scm +++ b/distro/packages/base.scm @@ -1424,9 +1424,11 @@ $out/bin/guile --version~%" "Return a variant of SOURCE, an <origin> instance, whose method uses %BOOTSTRAP-GUILE to do its job." (define (boot fetch) - (lambda* (store url hash-algo hash #:optional name) + (lambda* (store url hash-algo hash + #:optional name #:key system) (fetch store url hash-algo hash - #:guile %bootstrap-guile))) + #:guile %bootstrap-guile + #:system system))) (let ((orig-method (origin-method source))) (origin (inherit source) |