TakeV/guix
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

build-system/gnu: Remove 'autoreconf' phase from 'gnu-dist'.

Browse source 
This has been superseded by the 'bootstrap' phase added in
189be331ac.

* guix/build/gnu-dist.scm (autoreconf): Remove.
(%dist-phases): Remove it.
This commit is contained in:
Ludovic Courtès 2020-06-17 15:18:34 +02:00
parent 8cca3f939a
commit 2ee1cce324
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 1 additions and 19 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
guix/build/gnu-dist.scm
View file

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013, 2015 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2013, 2015, 2020 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2018 Mark H Weaver <mhw@netris.org>
;;;
;;; This file is part of GNU Guix.
@ -33,23 +33,6 @@ (define-module (guix build gnu-dist)
(define* (copy-source #:key source #:allow-other-keys)
(copy-recursively source "."))
(define* (autoreconf #:rest args)
(letrec-syntax ((try-files (syntax-rules (else)
((_ (else fallback ...))
(begin fallback ...))
((_ file files ... (else fallback ...))
(if (file-exists? file)
(begin
(format #t "bootstrapping with `~a'...~%"
file)
(invoke (string-append "./" file)))
(try-files files ...
(else fallback ...)))))))
(try-files "bootstrap" "bootstrap.sh" "autogen" "autogen.sh"
(else
(format #t "bootstrapping with `autoreconf'...~%")
(invoke "autoreconf" "-vfi")))))
(define* (build #:key build-before-dist? make-flags (dist-target "distcheck")
#:allow-other-keys
#:rest args)
@ -85,7 +68,6 @@ (define %dist-phases
(delete 'strip)
(replace 'install install-dist)
(replace 'build build)
(add-before 'configure 'autoreconf autoreconf)
(replace 'unpack copy-source)))
;;; gnu-dist.scm ends here