~ruther/guix-local

c3ee7448c9c10d0fdcc52fd1d57031cf6677aafc — Ludovic Courtès 13 years ago 45298f8
build-system/gnu: Change the order of `patch-source-shebangs' and `patch'.

* guix/build/gnu-build-system.scm (patch-source-shebangs): Add a newline
  after the "SHELL =" line in po/Makefile.in.in.
  (%standard-phases): Move `patch-source-shebangs' after `patch'.
1 files changed, 2 insertions(+), 2 deletions(-)

M guix/build/gnu-build-system.scm
M guix/build/gnu-build-system.scm => guix/build/gnu-build-system.scm +2 -2
@@ 98,7 98,7 @@
    (when (file-exists? "po/Makefile.in.in")
      (substitute* "po/Makefile.in.in"
        (("^SHELL[[:blank:]]*=.*$")
         (string-append "SHELL = " bash))))))
         (string-append "SHELL = " bash "\n"))))))

(define* (patch #:key (patches '()) (patch-flags '("--batch" "-p1"))
                #:allow-other-keys)


@@ 249,7 249,7 @@
  ;; Standard build phases, as a list of symbol/procedure pairs.
  (let-syntax ((phases (syntax-rules ()
                         ((_ p ...) `((p . ,p) ...)))))
    (phases set-paths unpack patch-source-shebangs patch configure
    (phases set-paths unpack patch patch-source-shebangs configure
            build check install
            patch-shebangs strip)))