200/211: gnu: findutils-boot0: Remove bootstrap leaks.

[Jan Nieuwenhuizen]

janneke pushed a commit to branch wip-bootstrap
in repository guix.

commit b7a589c6c74edf6f049e28d2dd7fbad6a0c9af1b
Author: Jan Nieuwenhuizen <address@hidden>
Date:   Thu Sep 6 21:34:42 2018 +0200

    gnu: findutils-boot0: Remove bootstrap leaks.
    
    * gnu/packages/commencement.scm (findutils-boot0): Remove bootstrap leaks.
---
 gnu/packages/commencement.scm | 19 +++++++++++--------
 1 file changed, 11 insertions(+), 8 deletions(-)

diff --git a/gnu/packages/commencement.scm b/gnu/packages/commencement.scm
index 0d4031a..b4778c6 100644
--- a/gnu/packages/commencement.scm
+++ b/gnu/packages/commencement.scm
@@ -1655,14 +1655,17 @@ exec " gcc "/bin/" program
 
 (define findutils-boot0
   (package-with-bootstrap-guile
-   (package-with-explicit-inputs (package
-                                   (inherit findutils)
-                                   (name "findutils-boot0"))
-                                 `(("make" ,gnu-make-boot0)
-                                   ("diffutils" ,diffutils-boot0) ; for tests
-                                   ,@(%bootstrap-inputs+toolchain))
-                                 (current-source-location)
-                                 #:guile %bootstrap-guile)))
+   (package (inherit findutils)
+            (name "findutils-boot0")
+            (inputs `(("make" ,gnu-make-boot0)
+                      ("diffutils" ,diffutils-boot0) ; for tests
+                      ,@(%bootstrap-inputs+toolchain)))
+            (propagated-inputs '())
+            (native-inputs '())
+            (arguments `(#:guile ,%bootstrap-guile
+                         #:implicit-inputs? #f
+                         #:tests? #f    ; the test suite needs diffutils
+                         ,@(package-arguments findutils))))))
 
 (define file-boot0
   (package-with-bootstrap-guile