From 21c203a53a617962586ef645b22f80814b05fd65 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Wed, 23 Jan 2013 23:21:59 +0100
Subject: packages: Mark the `arguments' field of <package> as thunked.

* guix/packages.scm (<package>): Mark `arguments' as thunked.
  (package-derivation): Adjust accordingly.  Parameterize
  %CURRENT-SYSTEM to SYSTEM, so that arguments can refer to it.

* guix/build-system/gnu.scm (package-with-explicit-inputs): Expect
  `package-arguments' to always return a list, and return a list.
  (package-with-extra-configure-variable): Likewise.
  (static-package): Likewise.
* gnu/packages/base.scm (patch, findutils, gcc-4.7, binutils-boot0,
  gcc-boot0, glibc-final-with-bootstrap-bash, cross-gcc-wrapper,
  static-bash-for-glibc, binutils-final, gcc-final): Change `arguments'
  from a lambda to a list, and use (%current-system) as needed.
  (nix-system->gnu-triplet, boot-triplet): Have the first argument
  default to (%current-system).
* gnu/packages/bootstrap.scm (glibc-dynamic-linker): Have `system'
  default to (%current-system).
  (%bootstrap-gcc): Change `arguments' to a list.
* gnu/packages/gawk.scm (gawk): Likewise.
* gnu/packages/m4.scm (m4): Likewise.
* gnu/packages/make-bootstrap.scm (%glibc-for-bootstrap): Likewise, and
  expect `package-arguments' to return a list.
  (%static-inputs, %gcc-static, tarball-package): Likewise.
* gnu/packages/ncurses.scm (ncurses): Likewise.
---
 guix/build-system/gnu.scm | 63 ++++++++++++++++++-----------------------------
 1 file changed, 24 insertions(+), 39 deletions(-)

(limited to 'guix/build-system/gnu.scm')

diff --git a/guix/build-system/gnu.scm b/guix/build-system/gnu.scm
index 4f84b3ccee..fa3b3b14b6 100644
--- a/guix/build-system/gnu.scm
+++ b/guix/build-system/gnu.scm
@@ -1,5 +1,5 @@
 ;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2012 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright © 2012, 2013 Ludovic Courtès <ludo@gnu.org>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -66,12 +66,8 @@ when GUILE is #f."
     (location (if (pair? loc) (source-properties->location loc) loc))
     (arguments
      (let ((args (package-arguments p)))
-       (if (procedure? args)
-           (lambda (system)
-             `(#:guile ,guile
-               #:implicit-inputs? #f ,@(args system)))
-           `(#:guile ,guile
-             #:implicit-inputs? #f ,@args))))
+       `(#:guile ,guile
+         #:implicit-inputs? #f ,@args)))
     (native-inputs (map rewritten-input
                         (filtered-inputs (package-native-inputs p))))
     (propagated-inputs (map rewritten-input
@@ -95,23 +91,19 @@ configure flags for VARIABLE, the associated value is augmented."
 
     (package (inherit p)
       (arguments
-       (lambda (system)
-         (let ((args (match (package-arguments p)
-                       ((? procedure? proc)
-                        (proc system))
-                       (x x))))
-          (substitute-keyword-arguments args
-            ((#:configure-flags flags)
-             (let* ((var= (string-append variable "="))
-                    (len  (string-length var=)))
-               `(cons ,(string-append var= value)
-                      (map (lambda (flag)
-                             (if (string-prefix? ,var= flag)
-                                 (string-append
-                                  ,(string-append var= value " ")
-                                  (substring flag ,len))
-                                 flag))
-                           ,flags))))))))
+       (let ((args (package-arguments p)))
+         (substitute-keyword-arguments args
+           ((#:configure-flags flags)
+            (let* ((var= (string-append variable "="))
+                   (len  (string-length var=)))
+              `(cons ,(string-append var= value)
+                     (map (lambda (flag)
+                            (if (string-prefix? ,var= flag)
+                                (string-append
+                                 ,(string-append var= value " ")
+                                 (substring flag ,len))
+                                flag))
+                          ,flags)))))))
       (inputs (rewritten-inputs (package-inputs p)))
       (propagated-inputs (rewritten-inputs (package-propagated-inputs p))))))
 
@@ -125,21 +117,14 @@ configure flags for VARIABLE, the associated value is augmented."
     (package (inherit p)
       (location (source-properties->location loc))
       (arguments
-       (let ((augment (lambda (args)
-                        (let ((a (default-keyword-arguments args
-                                   '(#:configure-flags '()
-                                     #:strip-flags #f))))
-                          (substitute-keyword-arguments a
-                            ((#:configure-flags flags)
-                             `(cons* "--disable-shared"
-                                     "LDFLAGS=-static"
-                                     ,flags))
-                            ((#:strip-flags _)
-                             ''("--strip-all")))))))
-         (if (procedure? args)
-             (lambda x
-               (augment (apply args x)))
-             (augment args)))))))
+       (let ((a (default-keyword-arguments args
+                  '(#:configure-flags '()
+                    #:strip-flags #f))))
+         (substitute-keyword-arguments a
+           ((#:configure-flags flags)
+            `(cons* "--disable-shared" "LDFLAGS=-static" ,flags))
+           ((#:strip-flags _)
+            ''("--strip-all"))))))))
 
 
 (define %store
-- 
cgit v1.2.3