From b642e4b853e9e3b8bbf5f5769fb602c6f4191347 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Thu, 25 Oct 2012 23:41:15 +0200 Subject: 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. --- distro/packages/base.scm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'distro/packages') 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 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) -- cgit v1.2.3