From d3d337d2d8f7152cb9ff3724f1cf240ce5ea5be2 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Sun, 5 Oct 2014 16:32:25 +0200 Subject: build-system: Bags record their system and target. * guix/build-system.scm ()[system, target]: New fields. (make-bag): Add #:system parameter and pass it to LOWER. * gnu/packages/bootstrap.scm (make-raw-bag): Initialize 'system' field. * guix/build-system/cmake.scm (lower): Likewise. * guix/build-system/perl.scm (lower): Likewise. * guix/build-system/python.scm (lower): Likewise. * guix/build-system/ruby.scm (lower): Likewise. * guix/build-system/trivial.scm (lower): Likewise. * guix/build-system/gnu.scm (lower): Initialize 'system' and 'target' fields. * guix/packages.scm (bag->derivation, bag->cross-derivation): New procedures. (package-derivation, package-cross-derivation): Use 'bag->derivation'. * tests/packages.scm ("search paths"): Initialize 'system' and 'target' fields. ("package->bag", "package->bag, cross-compilation", "bag->derivation", "bag->derivation, cross-compilation"): New tests. --- guix/build-system/perl.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'guix/build-system/perl.scm') diff --git a/guix/build-system/perl.scm b/guix/build-system/perl.scm index 6cf8cbe13a..1a968f4150 100644 --- a/guix/build-system/perl.scm +++ b/guix/build-system/perl.scm @@ -43,7 +43,8 @@ (module-ref module 'perl))) (define* (lower name - #:key source inputs native-inputs outputs target + #:key source inputs native-inputs outputs + system target (perl (default-perl)) #:allow-other-keys #:rest arguments) @@ -54,6 +55,7 @@ (and (not target) ;XXX: no cross-compilation (bag (name name) + (system system) (host-inputs `(,@(if source `(("source" ,source)) '()) -- cgit v1.2.3