From fa29b1998893f6ee136bca02bde2b59435d0737b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Fri, 30 Nov 2012 21:37:41 +0100
Subject: [PATCH] distro: Add `guile-2.0/fixed', which should rarely change.

* distro/packages/guile.scm (guile-2.0/fixed): New variable.
* distro/packages/base.scm (guile-final): Use it.
---
 distro/packages/base.scm  | 2 +-
 distro/packages/guile.scm | 5 +++++
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/distro/packages/base.scm b/distro/packages/base.scm
index 8a9e6d8166..ea6297107f 100644
--- a/distro/packages/base.scm
+++ b/distro/packages/base.scm
@@ -920,7 +920,7 @@ store.")
   ;; holds a dependency on the bootstrap Binutils.  Use multiple outputs for
   ;; Libtool, so that that dependency is isolated in the "bin" output.
   (package-with-bootstrap-guile
-   (package-with-explicit-inputs guile-2.0
+   (package-with-explicit-inputs guile-2.0/fixed
                                  %boot4-inputs
                                  (current-source-location)
                                  #:guile %bootstrap-guile)))
diff --git a/distro/packages/guile.scm b/distro/packages/guile.scm
index 80e5ef7612..a9a07a34ec 100644
--- a/distro/packages/guile.scm
+++ b/distro/packages/guile.scm
@@ -130,6 +130,11 @@ call interface, and powerful string processing.")
    (home-page "http://www.gnu.org/software/guile/")
    (license "LGPLv3+")))
 
+(define-public guile-2.0/fixed
+  ;; A package of Guile 2.0 that's rarely changed.  It is the one used
+  ;; in the `base' module, and thus changing it entails a full rebuild.
+  guile-2.0)
+
 
 ;;;
 ;;; Extensions.