02/03: build-system/gnu: 'dist-package' can be passed the phases.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit b8a35309f848f676cf7d4b3bbec9b92de554e27a
Author: Ludovic Courtès <address@hidden>
Date:   Wed Jan 13 17:38:42 2016 +0100

    build-system/gnu: 'dist-package' can be passed the phases.
    
    * guix/build-system/gnu.scm (dist-package): Add #:phases parameter and
    honor it.
---
 guix/build-system/gnu.scm |    7 ++++---
 1 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/guix/build-system/gnu.scm b/guix/build-system/gnu.scm
index 9c53825..67ae46f 100644
--- a/guix/build-system/gnu.scm
+++ b/guix/build-system/gnu.scm
@@ -178,9 +178,10 @@ use `--strip-all' as the arguments to `strip'."
               flags)))))
     (replacement (and=> (package-replacement p) static-package))))
 
-(define* (dist-package p source)
+(define* (dist-package p source #:key (phases '%dist-phases))
   "Return a package that runs takes source files from the SOURCE directory,
-runs `make distcheck' and whose result is one or more source tarballs."
+runs `make distcheck' and whose result is one or more source tarballs.  The
+exact build phases are defined by PHASES."
   (let ((s source))
     (package (inherit p)
       (name (string-append (package-name p) "-dist"))
@@ -199,7 +200,7 @@ runs `make distcheck' and whose result is one or more 
source tarballs."
             `((guix build gnu-dist)
               ,@modules))
            ((#:phases _)
-            '%dist-phases))))
+            phases))))
       (native-inputs
        ;; Add autotools & co. as inputs.
        (let ((ref (lambda (module var)