60/63: bootstrap: Add tar-boot0.

[guix-commits]

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

commit f5d6972411cb1cf43c6722c15fe7f1ee424f92e7
Author: Jan Nieuwenhuizen <address@hidden>
Date:   Sat Nov 23 09:13:50 2019 +0100

    bootstrap: Add tar-boot0.
    
    * gnu/packages/commencement.scm (tar-boot0): New variable.
    (%boot0-inputs): Add it.
---
 gnu/packages/commencement.scm | 21 +++++++++++++++++++--
 1 file changed, 19 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/commencement.scm b/gnu/packages/commencement.scm
index dad392c..59d783b 100644
--- a/gnu/packages/commencement.scm
+++ b/gnu/packages/commencement.scm
@@ -2744,7 +2744,7 @@ exec " gcc "/bin/" program
 
 (define patch-boot0
   (package
-    (inherit file)
+    (inherit patch)
     (source (bootstrap-origin (package-source patch)))
     (name "patch-boot0")
     (native-inputs `(("ed" ,ed-boot0)))
@@ -2752,7 +2752,8 @@ exec " gcc "/bin/" program
      `(("make" ,gnu-make-boot0)
        ,@(%bootstrap-inputs+toolchain)))
     (arguments
-     `(#:implicit-inputs? #f
+     `(#:tests? #f                      ; merge test fails
+       #:implicit-inputs? #f
        #:guile ,%bootstrap-guile
        #:strip-binaries? #f
        #:validate-runpath? #f))))
@@ -2772,6 +2773,21 @@ exec " gcc "/bin/" program
        #:guile ,%bootstrap-guile
        ,@(package-arguments sed)))))
 
+(define tar-boot0
+  (package
+    (inherit tar)
+    (name "tar-boot0")
+    (source (bootstrap-origin (package-source tar)))
+    (native-inputs '())
+    (inputs
+     `(("make" ,gnu-make-boot0)
+       ,@(%bootstrap-inputs+toolchain)))
+    (arguments
+     `(#:implicit-inputs? #f
+       #:tests? #f
+       #:guile ,%bootstrap-guile
+       ,@(package-arguments tar)))))
+
 (define (%boot0-inputs)
   `(("bzip2" ,bzip2-boot0)
     ("diffutils" ,diffutils-boot0)
@@ -2780,6 +2796,7 @@ exec " gcc "/bin/" program
     ("make" ,gnu-make-boot0)
     ("patch" ,patch-boot0)
     ("sed" ,sed-boot0)
+    ("tar" ,tar-boot0)
     ,@(%bootstrap-inputs+toolchain)))
 
 (define* (boot-triplet #:optional (system (%current-system)))