build-system/gnu: Remove 'autoreconf' phase from 'gnu-dist'.
This has been superseded by the 'bootstrap' phase added in 189be331acfda1c242a9c85fca8d2a0356742f48. * guix/build/gnu-dist.scm (autoreconf): Remove. (%dist-phases): Remove it.
This commit is contained in:
parent
8cca3f939a
commit
2ee1cce324
@ -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* (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 @@
|
||||
(delete 'strip)
|
||||
(replace 'install install-dist)
|
||||
(replace 'build build)
|
||||
(add-before 'configure 'autoreconf autoreconf)
|
||||
(replace 'unpack copy-source)))
|
||||
|
||||
;;; gnu-dist.scm ends here
|
||||
|
Loading…
Reference in New Issue
Block a user