futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

gnu: bootstrap: Use the bootstrap tools for <origin> patching.

Browse Source 
* gnu/packages/bootstrap.scm (bootstrap-origin): Override the
  'patch-guile' and 'patch-inputs' fields of SOURCE.
This commit is contained in:
Ludovic Courtès 2013-10-10 23:02:33 +02:00
parent 1d9bc45925
commit 5fbeb4e6e1
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
gnu/packages/bootstrap.scm
View File

@ -64,11 +64,21 @@
#:guile %bootstrap-guile #:guile %bootstrap-guile
#:system system))) #:system system)))
(define %bootstrap-patch-inputs
;; Packages used when an <origin> has a non-empty 'patches' field.
`(("tar" ,%bootstrap-coreutils&co)
("xz" ,%bootstrap-coreutils&co)
("bzip2" ,%bootstrap-coreutils&co)
("gzip" ,%bootstrap-coreutils&co)
("patch" ,%bootstrap-coreutils&co)))
(let ((orig-method (origin-method source))) (let ((orig-method (origin-method source)))
(origin (inherit source) (origin (inherit source)
(method (cond ((eq? orig-method url-fetch) (method (cond ((eq? orig-method url-fetch)
(boot url-fetch)) (boot url-fetch))
(else orig-method)))))) (else orig-method)))
(patch-guile %bootstrap-guile)
(patch-inputs %bootstrap-patch-inputs))))
(define (package-from-tarball name* source* program-to-test description*) (define (package-from-tarball name* source* program-to-test description*)
"Return a package that correspond to the extraction of SOURCE*. "Return a package that correspond to the extraction of SOURCE*.