gnu: bash: Use 'install-file' instead of 'mkdir-p' and 'copy-file'.
* gnu/packages/bash.scm (bash): Use 'install-file' instead of 'mkdir-p' and 'copy-file'. Signed-off-by: Ludovic Courtès <ludo@gnu.org>master
parent
3dcbb75f63
commit
c30f65237b
|
@ -149,18 +149,11 @@ number/base32-hash tuples, directly usable in the 'patch-series' form."
|
||||||
(mkdir-p include)
|
(mkdir-p include)
|
||||||
(for-each (lambda (file)
|
(for-each (lambda (file)
|
||||||
(when (string-match includes file)
|
(when (string-match includes file)
|
||||||
(let ((directory (string-append include)))
|
(install-file file include))
|
||||||
(mkdir-p directory)
|
|
||||||
(copy-file file
|
|
||||||
(string-append directory "/"
|
|
||||||
(basename file)))))
|
|
||||||
(when (string-match headers file)
|
(when (string-match headers file)
|
||||||
(let ((directory (string-append include "/"
|
(install-file file
|
||||||
(dirname file))))
|
(string-append include "/"
|
||||||
(mkdir-p directory)
|
(dirname file)))))
|
||||||
(copy-file file
|
|
||||||
(string-append directory "/"
|
|
||||||
(basename file))))))
|
|
||||||
(find-files "." "\\.h$"))
|
(find-files "." "\\.h$"))
|
||||||
(delete-file (string-append include "/" "y.tab.h"))
|
(delete-file (string-append include "/" "y.tab.h"))
|
||||||
#t)))
|
#t)))
|
||||||
|
|
Reference in New Issue