From a48dddfe9cf19b9c301ca170eacc05604b5cefac Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Mon, 5 Nov 2012 00:16:30 +0100
Subject: [PATCH] distro: Add missing `package-with-bootstrap-guile'.

* distro/packages/base.scm (binutils-final): Add missing
  `package-with-bootstrap-guile'.
---
 distro/packages/base.scm | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

diff --git a/distro/packages/base.scm b/distro/packages/base.scm
index 6982770128..3f79449250 100644
--- a/distro/packages/base.scm
+++ b/distro/packages/base.scm
@@ -876,13 +876,14 @@ exec ~a/bin/~a-gcc -B~a/lib -Wl,-dynamic-linker -Wl,~a/~a \"$@\"~%"
     ,@(fold alist-delete %boot1-inputs '("libc" "gcc"))))
 
 (define binutils-final
-  (package (inherit binutils)
-    (arguments
-     (lambda (system)
-       `(#:guile ,%bootstrap-guile
-         #:implicit-inputs? #f
-         ,@(package-arguments binutils))))
-    (inputs %boot2-inputs)))
+  (package-with-bootstrap-guile
+   (package (inherit binutils)
+     (arguments
+      (lambda (system)
+        `(#:guile ,%bootstrap-guile
+                  #:implicit-inputs? #f
+                  ,@(package-arguments binutils))))
+     (inputs %boot2-inputs))))
 
 (define-public gcc-final
   ;; The final GCC.