diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2012-12-20 23:06:34 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2012-12-20 23:06:34 +0100 |
| commit | eca63d3df8642587c35765af8446c1669e192789 (patch) | |
| tree | 8a037ffa424f230694f62ca8c4035f21811c2320 | |
| parent | 4c377e861b11ed5c5689fdb3ba2d1d864c77cef4 (diff) | |
| download | patches-eca63d3df8642587c35765af8446c1669e192789.tar patches-eca63d3df8642587c35765af8446c1669e192789.tar.gz | |
build-system/gnu: Patch shebangs after `configure'.
* guix/build/gnu-build-system.scm (patch-generated-files): New
procedure.
(%standard-phases): Add it after `configure'.
| -rw-r--r-- | guix/build/gnu-build-system.scm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/guix/build/gnu-build-system.scm b/guix/build/gnu-build-system.scm index 8692359bd8..18c66e5256 100644 --- a/guix/build/gnu-build-system.scm +++ b/guix/build/gnu-build-system.scm @@ -101,6 +101,8 @@ (("^SHELL[[:blank:]]*=.*$") (string-append "SHELL = " bash "\n")))))) +(define patch-generated-files patch-source-shebangs) + (define* (patch #:key (patches '()) (patch-flags '("--batch" "-p1")) #:allow-other-keys) (every (lambda (p) @@ -250,7 +252,8 @@ ;; Standard build phases, as a list of symbol/procedure pairs. (let-syntax ((phases (syntax-rules () ((_ p ...) `((p . ,p) ...))))) - (phases set-paths unpack patch patch-source-shebangs configure + (phases set-paths unpack patch + patch-source-shebangs configure patch-generated-files build check install patch-shebangs strip))) |